Perl：确定键是否在散列中的意外结果

Question

在 Windows 10 x64 上使用 Perl v5.22.1。 我已经设置了

use strict;
use warnings;

这段代码（基于@Jeef 的accepted answer in this question）是解析文件的while 循环的一部分。它默默地退出：

my %hvac_codes;   # create hash of unique HVAC codes
#Check the hash to see if we have seen this code before we write it out
if ( $hvac_codes{$hvacstring}  eq 1)  {
    #Do nothing - skip the line
} else {
  $hvac_codes{$hvacstring} = 1;  
}

如果我这样改变它

my %hvac_codes;   # create hash of unique HVAC codes
#Check the hash to see if we have seen this code before we write it out
if ( defined $hvac_codes{$hvacstring} )  {
    #Do nothing - skip the line
} else {
  $hvac_codes{$hvacstring} = 1;  
  print (" add unique code $hvacstring \n");
}

它不会静默退出（也很好奇为什么静默退出而不是未定义引用上的错误）但不能按预期工作。每个 $hvacstring 都会被添加到 %hvac_codes 哈希中，即使它们已被添加。 （由印刷品证明）

我想看看哈希是如何结束的，以确定是否每个代码都被视为未定义，因为测试是错误的，或者分配给哈希的分配不起作用。我尝试了两种方式的倾倒器：

print dumper(%hvac_codes);

和（基于this question's answer）

print dumper(\%hvac_codes);

在这两种情况下，转储程序行都会失败并出现Global symbol "%hvac_codes" requires explicit package name 错误，即使存在my %hvac_codes;。现在我已经把它注释掉了。

Answer 1

在 Perl 中，散列中的键要么存在，要么不存在。要检查密钥是否存在，请使用exists。

if (exists $hvac_codes{$hvacstring}) { ...

您还可以使用defined 测试与键对应的值的定义性。

if (defined $hvac_codes{$hvac_string}) { ...

如果key不存在，它仍然返回false；但它也为分配值为undef的键返回false：

undef $hvac_codes{key_with_undef_value};

注意Data::Dumper 导出Dumper，而不是dumper。 Perl 区分大小写。