我有一个Perl脚本，它计算在文本文件中各种字符串的出现次数。我想能够检查某个字符串是否还不是哈希中的键。有没有更好的方法这样做？
这里是我在做什么：
foreach $line (@lines){
if(($line =~ m|my regex|) )
{
$string = $1;
if ($string is not a key in %strings) # "strings" is an associative array
{
$strings{$string} = 1;
}
else
{
$n = ($strings{$string});
$strings{$string} = $n +1;
}
}
}
解决方法
我相信检查一个键是否存在于你刚才做的哈希
if (exists $strings{$string}) {
...
} else {
...
}