如何将值推送到数组的Perl哈希？

Question

%TEST ; 

... 
for  {
   sub atest
   }
 sub atest {
 ...
    push $TEST { TEST1 }[0] = "some value " 
}

如何在不了解索引的情况下将值推送到数组的哈希值？

我该如何实现这一目标？

Answer 1

这将通过"TEST1"键为散列中存储的数组的末尾添加值.

push( @{ $TEST { TEST1 } }, "some value "); 

我以前用过@{...}引用数组引用.Perl会根据需要自动创建内部数组引用.

Answer 2

该push函数采用数组,因此您必须将其引用回数组:

push @{$TEST{TEST1}}, "some value";

而且,你的风格让我觉得你没有使用strictpragma.编写该代码的更好方法是:

#!/usr/bin/perl

use strict;
use warnings;

sub atest {
    my $test = shift;
    push @{$test->{TEST1}}, "some value";
}

my %test;
atest(\%test);

use Data::Dumper;

print Dumper \%test;