Perl - Hash of Hash - 测试条目是否存在

Question

我有一个问题，当我尝试查找我的 Hash of Hash 中是否存在一个条目时，如果它不存在，Perl 会为我创建这个条目。 我的代码示例：

use warnings;
use strict;

my %hash;

$hash{'key1'}{'subkey1'} = "value1";

if ( defined($hash{'key2'}{'subkey2'}) ) {
    print "Here\n";
}

print keys %hash;

此代码返回：

key1key2

如果此条目存在并且不要将其添加到哈希中，最好的捕获方法是什么？ 我尝试过“存在”“定义”，这是一回事。

感谢您的支持。 对不起我的英语。

Answer 1

您必须先测试key2，然后才能测试subkey2

if (defined($hash{'key2'}) && defined($hash{'key2'}{'subkey2'}) ) {
    print "Here\n";
}

否则，Perl 创建$hash{'key2'} 以检查subkey2。