连续重复子串的问题

gridbird

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

mcshell

1. perl -le  '$str="ABCDEFGHGHGHAABCDEFGFGFGFG";1 while($str=~/((..)\2+)(?{print $1})/g);'

复制代码

gridbird

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

kk861123

回复 3# gridbird

是这样吗？

1. my $str="ABCDEFGHGHGHAABCDEFGFGFGFG";
   
2. while ( $str =~ /((..)\2+)/g ) {
   
3.     print "$1 happens in ", pos($str) - length($1), "\n";
   
4. }

复制代码

gridbird

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


   

kk861123

回复 5# gridbird


    you're welcome~

rubyish

有一个良好的快速的解决方案，，但我的老师 kk861123 并没有提到它， 因为它不是一个合适的时间对你,它是关於一个特殊的变量:

1. my $str = "ABCDEFGHGHGHAABCDEFGFGFGFG";
   
2. while ( $str =~ /((..)\2+)/g ) {
   
3.     print "$1 happens in ", $-[0], "\n";
   
4. }

复制代码

只是一个红薯

{:3_193:} 多谢回复 7# rubyish


   

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