正則判斷字符串重復

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 發(fā)表于 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. }

復制代碼