Perl:如何测试是否已将任何值(甚至零)分配给哈希键

Question

是否有正确的方法来测试特定哈希键是否已被分配任何值，即使该值为零？我一直在使用这样的声明:

%hash=();
$hash{a}=1;
$hash{b}=0;
if($hash{$key}) { do something }

但是对于从未被触摸过的键和那些被赋值为 0 的键，这给出了相同的结果(例如 $hash{b} 和 $hash{c} 都评估为“false”)。有没有办法区分这两者之间的区别？

Answer 1

使用defined运算符检查某些内容是否具有非 undef

的值

if ( defined $hash{ $key } ) {
  //do stuff
}

使用exists运算符检查 %hash 的 $key 是否已写入

if ( exists $hash{ $key } ) {
  //do stuff
}

区别在于，define 检查某个值是否为 undef 以外的值，而 exists 用于验证 >$key 是哈希的键，尽管它有值。