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

longbow0

比如，'AAAAAAAAAA' 是 10 个重复的 'A'？

我只想到一个笨办法

1. 
   
2. my $str = 'AAAAAAAAAA';
   
3. my $chr = substr($str, 0, 1);
   
4. my $rpt_times = ( $str =~ /$chr/g );
   
5. if ( $rpt_times == length($str) ) {
   
6.     print 'Y';
   
7. }
   

复制代码

向各位请教更加有效律的方法。

liyangole

split// 分隔成数组 在判断 不过效率不是最高的。呼唤高手。

DIYBYPERL

回复 1# longbow0

1. #!perl  -w
   
2. use 5.10.0;
   
3. 
   
4. my $str = 'AAAAAAAAAA';
   
5. if ( $str =~/^(.)(\1)+$/ ) {
   
6.     print "Y\n";
   
7. }
   

复制代码

longbow0

谢谢 DIYBYPERL ! 果然很强大！

再多问一下，要是在 5.8 下，有没有好的方法？

liyangole

回复 3# DIYBYPERL


    恩， 这个不错。发散思维了。

liyangole

我在5.8上试试了，也可以啦

longbow0

多谢各位！

toniz

那我也来一个开拓思路的，嘿嘿。

1. my $str = 'AAAAAAAAAA';
   
2. print "Y\n" if($str eq reverse($str));

复制代码

longbow0

那我也来一个开拓思路的，嘿嘿。
toniz 发表于 2011-01-04 17:47

你的方法也适合 'ABBA'

bernana

回复 3# DIYBYPERL

1. #!perl -w
   
2. 
   
3. use 5.10.0;
   
4. 
   
5. 
   
6. 
   
7. my $str = 'AAAAAAAAAA';
   
8. 
   
9. if ( $str =~/^(.)(\1)+$/ ) {
   
10. 
    
11. print "Y\n";
    
12. 
    
13. }
    

复制代码

   这里这个(\1)是啥意思呀？