如何將值推送到數組的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到一個數組中：

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

而且，你的風格讓我覺得你沒有使用strict pragma。 編寫該代碼的更好方法是：

#!/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;

Answer 3

我想你想要：

%TEST;
$TEST{TEST1}[0] = "some value"
push @{ $TEST{TEST1} }, "some other value"

現在，$ TEST {TEST1}應該相當於["some value", "some other value"] 。