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

flw

print "Yes" if scalar %hash=~/^1/;
有 BUG。改成数值比较就可以了。
print "Yes" if keys %hash == 1;

zhlong8

学习了， hash 在 number context 下原来还有这个意义

wfnh

a{2，}

x9x9

print "Yes" if scalar %hash=~/^1/;
有 BUG。改成数值比较就可以了。
print "Yes" if %hash == 1;
flw 发表于 2011-01-07 17:53

    感谢版主点拨。本来也是想用scalar进行上下文强制转换，以为结果会是1，但运行一看是1/8，于是就不得已用了正则。没有试%hash的上下文。
但版主说有bug是指？

flw

感谢版主点拨。本来也是想用scalar进行上下文强制转换，以为结果会是1，但运行一看是1/8，于是就 ...
x9x9 发表于 2011-01-10 09:50

你只判断了 1 开头。

zhlong8

好歹你也应该判断 /^1\// 否则以1开头的整数多着呢，出于效率考虑 hash 不可能只分配一个 slot

2gua

正则的力量是强大的！！！！！！

flw

学习了， hash 在 number context 下原来还有这个意义
zhlong8 发表于 2011-01-07 18:10

sorry，我本意是想写 keys %hash 的，已更正。
%hash 在 scalar context 下的值应该是不分数值上下文或非数值上下文的。

zhlong8

回复 28# flw


    这个用法的确在文档中没见过，不过真有效

    perl -e "%a = 1..10; print (%a+0)

    明白了，那个是 '5/10' 转化为数字的时候成 5 了，尴尬……

    就好像昨天那个没见过的 $# 用在 array_ref 上的应用一样，也是没见过

lvlfforever

1. my $str = 'AAAAAAAAAAA';
   
2. my $b;
   
3. map {$b |= $_;}(split//,$str);
   
4. print "Y" if substr($str, 0, 1) eq $b;

复制代码