请教RE:$string=~/(([ABC]{1,})\2{1,})/gi改进

biomasm

in.txt为:
AAA
ABCABC
ABABABABAB

1. open FH,"in.txt";
   
2. open STDOUT,">;out.txt";
   
3. while(<FH>;){
   
4.         chomp;
   
5.         if ($_=~/(([ABC]{1,})\2{1,})/gi) {
   
6.   print $1,"-",$2,"\n";
   
7.   }
   
8. }
   
9. close FH;

复制代码

out.txt为:
AAA-A
ABCABC-ABC
ABABABAB-ABAB
期望out.txt为:
AAA-A
ABCABC-ABC
ABABABABAB-AB

请方家赐教!

pupilzeng

if ($_=~/(([ABC]{1,}?)\2{1,})/gi)

biomasm

多谢pupilzeng!
呵呵,RE,I服了U!