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

作者: longbow0   发布时间: 2011-01-04

作者: liyangole   发布时间: 2011-01-04

回复 longbow0

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

复制代码

作者: DIYBYPERL   发布时间: 2011-01-04

作者: longbow0   发布时间: 2011-01-04

作者: liyangole   发布时间: 2011-01-04

作者: liyangole   发布时间: 2011-01-04

作者: longbow0   发布时间: 2011-01-04

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

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

复制代码

作者: toniz   发布时间: 2011-01-04