perl - 我如何查看 Perl 哈希是否已经有某个键？

Question

我有一个 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;
        }
    }
}

Answer 1

我相信要检查您刚刚执行的哈希中是否存在 key

if (exists $strings{$string}) {
    ...
} else {
    ...
}