正则判断字符串重复

justlooks

回复 10# suntoltti


    首先什么你得说清楚什么才是重复的字符串

　　　aaaa? 那么我abab呢　abceabc呢？

seufy88

$_="aaaaaaa";
$str=substr($_,0,1);
while(/(.)/g){
     if($str eq $1){
          next;
        }else{
        print "failed";
        last;
        }
}

suntoltti

回复  suntoltti


    首先什么你得说清楚什么才是重复的字符串

　　　aaaa? 那么我abab呢　abceab ...
justlooks 发表于 2011-03-01 13:08

   
echo "abc"|perl -ne '$num=()=/\G(.)$1/g;print $num,"\n";'
3


没看到吗？ 你的正则输入abc，输出3。 你的意思是abc也是重复的吗？

我认为你是故意来逗乐的

珞水的大叔

又是这个问题啊，呵呵

1. my $lala = 'aaaaaaaaaaaaaaaa';
   
2. $lala =~ /^(.)(.*)$/;
   
3. if($lala eq $2.$1){
   
4.     print "Y\n";
   
5. }

复制代码