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

toniz

是滴  这方法这里行不通   嘿嘿

meihuaqi

我果然是个天才。{:3_183:}

bsd# perl -e 'my $str = 'AAAAAAAAAAAAAAAA';  print "Y\n" if $str eq substr($str, 0, 1) x length($str);'
Y

liyangole

回复 12# meihuaqi


    大家思路发散的不错啦。

DIYBYPERL

回复 10# bernana


    对第一个括号匹配结果的引用，意思是\1等于第一个括号匹配出的结果

longbow0

其实

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

复制代码

就好。(\1) 等于又捕获了一次。

黑色阳光_cu

1. my $str = 'AAAAAAAAAA';
   
2. if (substr($str, 0, 1) x length($str) eq $str)
   
3. {
   
4.         warn "yes";
   
5. }

复制代码

toniz

用两次函数的话大把方法的。

一次函数的有没实现方法呢？

liyangole

回复 17# toniz


    上面用正则不是挺好了吗。不过可以发散散发散发 哈

x9x9

my $str='AAAAAAAAAA';
my %hash;
map {$hash{$_}=undef;} (split //,$str);
print "Yes" if scalar %hash=~/^1/;

liyangole

scalar %hash 得到的是什么？？