连续重复子串的问题

gridbird

如果想从一个很长的字符串中查找所有的连续重复的子串，有没有使用正则的简单写法。
例如： $str="ABCDEFGHGHGHAABCDEFGFGFGFG"; 所包含的连续重复子串：“GHGHGH” 和 “FGFGFGFG”;
大家有没有简单的使用正则表达式的方法。

gridbird

如何得到这些子串在 $str 的位置？

gridbird

always got the answer from you, thanks.  
回复 4# kk861123


   

gridbird

thanks. 我的确google 到了你的这种方式， 但是对于特别长的 $str, 例如： length($str) = 200MB;

perl 给出了如下的警告信息：

Complex regular subexpression recursion limit (32766) exceeded at ./test.pl line 112, <REF> line 1789160.

试了 perl 5.8 和 5.10 ， 都给出了如上的警告信息。

any ideas?


回复 7# rubyish


   

gridbird

perl  的新版本是不是已经没有这个recursion limit的警告了？
Complex regular subexpression recursion limit (32766) exceeded at ./test.pl line 112, <REF> line 1789160.

回复 11# yinyuemi