Question

我有以下perl脚本，它将一些细节存储在哈希中。在填充哈希中的一些条目之后，我将打印产生以下输出的哈希内容

Key:4:Name4 Value:Name4
Key:3:Name3 Value:Name3
Key:2:Name2 Value:Name2
Key:1:Name1 Value:Name1
Key:0:Name0 Value:Name0

之后我尝试搜索哈希中不存在的嘿（我的$ nm = $ components {'11：Name11'} {'name'}）;

在此检查之后如果我打印哈希的内容，我看到上面的键（即'11：Name11'）被添加到哈希（下面突出显示）。有人可以解释一下这种行为吗？

Key:4:Name4 Value:Name4
Key:3:Name3 Value:Name3
**Key:11:Name11 Value:**
Key:2:Name2 Value:Name2
Key:1:Name1 Value:Name1
Key:0:Name0 Value:Name0

my %components ;

for ($i=0;$i<5;$i++)
{
    my $hash = {} ;
    my $vr = $i+100;
    $hash->{'container'} = $i ;
    $hash->{'name'} =  'Name'.$i;
    $hash->{'version'} = $vr ;
    my $tmpCompName = $hash->{'container'}.':'.$hash->{'name'};
    $components{$tmpCompName} = $hash ;
}


while (my ($k,$v)=each %components){
        print "Key:".$k." Value:".$v->{'name'}."\n";
}

my $tmp = '11:Name11';

my $nm = $components{$tmp}{'name'} ;

print "Name:".$nm."\n";

print "After check\n";

while (my ($k,$v)=each %components){
            print "Key:".$k." Value:".$v->{'name'}."\n"
}

提前致谢。

Answer 1

这称为autovivification。 Perl的一个功能是允许您使用之前未声明或初始化的哈希元素。只要未定义的值（如$components{'11:Name11'}）被解除引用（当Perl尝试评估$components{'11:Name11'}{'name'}时会发生这种情况），就会发生这种情况。

您可以使用autovivification pragma来禁用此行为。

{
    no autovivification;
    if ($hash{"non-existent-key"}{"foo"}) {  # won't create $hash{"non-existent-key"}
    ...
}

Perl中的Hash如果不存在则添加密钥

1 个答案: