在 Perl 中，我使用类似于以下的循环创建了一个哈希值
my %HoH
for my $i (1..10) {
$HoH{$a}{$b} = $i;
}
$a 和 $b 是在填充 HoH 时确实具有某些值的变量。创建 HoH 后，如何检查特定对 ($c, $d) 是否存在于 HoH 中？以下不起作用
if (defined $HoH{$c}{$d}) {...}
因为如果 $c 在 HoH 中已经不存在，它将被创建为没有值的键。
【问题讨论】：
$c 的值，它将被创建为对（新的、匿名的）散列的引用，因为这就是它的使用方式。这称为“自动复活”。
写作
if (defined $HoH{$c}{$d}) {...}
将“起作用”，因为它会告诉您$HoH{$c}{$d} 是否具有定义的值。问题是如果$HoH{$c} 尚不存在，它将被创建（具有适当的值），以便可以测试$HoH{$c}{$d}。这个过程被称为“自动存活”。设置值时很方便，例如
my %hoh;
$hoh{a}{b} = 1; # Don't need to set '$hoh{a} = {}' first
但在检索可能不存在的值时很不方便。我希望 Perl 足够聪明，只对用作左值的表达式执行自动激活，并为右值短路返回 undef，但是，唉，它并没有那么神奇。 autovivification pragma（在 CPAN 上可用）添加了执行此操作的功能。
为避免自动激活，您需要先测试中间值：
if (exists $HoH{$c} && defined $HoH{$c}{$d}) {
...
}
【讨论】：
exists，它看起来像是对布尔真值的测试。引用当然是正确的，所以它有效并且更简洁，但这并不是我们真正关心的价值的真实性。附带的好处是，检查是否存在比检索值要快一些。
exists 是多余的，引起了特别的注意，让我思考是否有什么鬼鬼祟祟的东西。当我看到有人写"$var" 而$var 会这样做时，我也有同样的反应。也就是说，我自己一直写$count = scalar(@array)，尽管scalar 是多余的。我想我们希望提醒自己和他人我们的缩进，但是“需要”提醒的内容可能因作者和读者而异。
exists。如果你想知道%foo中是否存在bar，而只做if $foo{bar}和$foo{bar} == 0，可能得不到你想要的结果。
use Data::Dumper;
my %HoH;
$HoH{A}{B} = 1;
if(exists $HoH{C} && exists $HoH{C}{D}) {
print "exists\n";
}
print Dumper(\%HoH);
if(exists $HoH{C}{D}) {
print "exists\n";
}
print Dumper(\%HoH);
输出：
$VAR1 = {
'A' => {
'B' => 1
}
};
$VAR1 = {
'A' => {
'B' => 1
},
'C' => {}
};
自动激活导致密钥被创建。我的第二个示例中的“存在”显示了这一点，因此第一个示例分别检查两个键。
【讨论】：
exists，你知道的。
几种方式：
if ( $HoH{$c} && defined $HoH{$c}{$d} ) {...}
或
if ( defined ${ $HoH{$c} || {} }{$d} ) {...}
或
no autovivification;
if (defined $HoH{$c}{$d}) {...}
或
use Data::Diver;
if ( defined Data::Diver::Dive( \%HoH, $c, $d ) ) {...}
【讨论】：
defined 的所有业务是怎么回事？
你必须使用exists函数
存在 EXPR
给定一个表达式，指定一个 哈希的元素，如果 哈希中的指定元素曾经 已初始化，即使 对应的值未定义。
注意EXPR可以任意 复杂只要最后 操作是哈希或数组键 查找或子程序名称：
- 如果（存在 $ref->{A}->{B}->{$key}）{ }
- 如果（存在 $hash{A}{B}{$key}）{}
【讨论】：
exists 不会破坏自动存活。
exists 既不是实现此处解决方案的必要措施，也不是充分措施。
我的看法：
use List::Util qw<first>;
use Params::Util qw<_HASH>;
sub exists_deep (\[%$]@) {
my $ref = shift;
return unless my $h = _HASH( $ref ) // _HASH( $$ref )
and defined( my $last_key = pop )
;
# Note that this *must* be a hash ref, for anything else to make sense.
return if first { !( $h = _HASH( $h->{ $_ } )) } @_;
return exists $h->{ $last_key };
}
您也可以递归地执行此操作。您还可以创建一个下降结构，允许中间甚至终端数组引用，只需一点额外的编码。
【讨论】：