Hash的Perl - Hash -测试(如果存在条目)

Question

我遇到了一个问题，当我试图在哈希哈希中找到一个条目时，如果它不存在，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。