连续重复子串的问题

yinyuemi

回复 10# gridbird

1. perl -MData::Dumper -le ' $str="ABCDEFGHGHGHAABCDEFGFGFGFG"; while($str=~/(..)(?=\1)/g){$hash{pos($str)-(2 * ++$hash2{$1}). "\t" .$1} .= $1};map{print $_,$hash{$_}}keys %hash'
   
2. 6       GHGHGH
   
3. 18      FGFGFGFG

复制代码

blackfur

回复 11# yinyuemi


    学习了

gridbird

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

回复 11# yinyuemi


   

yinyuemi

回复 13# gridbird


    不清楚，因为你提到之前报的错，我写的code没有使用贪婪匹配，所以应该不会报错，你可以测试下

kk861123

rubyish 发表于 2013-04-07 14:36
有一个良好的快速的解决方案，，但我的老师 kk861123 并没有提到它， 因为它不是一个合适的时间对你,它是关 ...

谢谢您，rubyish 老师，我见过这个变量，但真心没用过{:3_185:}

kk861123

回复 10# gridbird


    我的那个没报这种错误吗？这是perl对递归的限制吧，你可以关闭这个警告：

1. local $^W = 0;

复制代码

dahe_1984

回复 8# sinian126

解释下，什么意思？ 我把$str = "mansonfjdklsafjdlksmanson";为何匹配不到？


   

dahe_1984

回复 18# sinian126

不好意思，我的是类似 $str = "mansonmansondfajkldj"