怎么判断一个字符串是否是单一字符的重复？

seufy88

我也来试试

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

socyno

我果然是个天才。

bsd# perl -e 'my $str = 'AAAAAAAAAAAAAAAA';  print "Y\n" if $str eq sub ...
meihuaqi 发表于 2011-01-05 09:37

    嗯，这个方法相当的不错哦

珞水的大叔

看看我这个，应该很快吧，嘿嘿：

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

复制代码