请教搜索重复单词（“this this”）问题

tommydu

搜索重复单词（“this this”）问题：

$/ = ".\n";
    while (<>) {
      next if !s/\b([a-z]+)((?:\s<<[^>]+>)+)(\1\b)/\e[7m$1\e[m$2\e[7m$3\e[m/ig;
      s/^(?:[^\e]*\n)+//mg;   # Remove any unmarked lines.   # 为何需要加^
      s/^/$ARGV: /mg;         # Ensure lines begin with filename.
      print;
    }

请教~~~

wfnh

你的是说包括括号?

wfnh

十分之乱的一个正则`

bluewaterray

/\b(\w+)\s+\1\b/i

Ray001

真乱，正则写长了，没注释看不懂啊。

bluewaterray

原来LZ贴的是《精通正则表达式》里的解决重复单词的问题，P77的解答

bluewaterray

既然用到了/mg，所以^会匹配每一行开头的位置，这里要对每一行进行检查，如果从^一直到\n，都没有标记的话就把这行去掉。
不加^的话，检查失败从后一个"字符"开始，成功则从成功的地方之后开始，而非下一行开始

zhasm

请看此文:精通正则表达式之重复单词程序详解