如何將值推送到數組的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"; 

而且，你的風格讓我你不使用strict編譯認爲。一個更好的方式來寫代碼是：

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

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

Answer 4

它這個Perl然後看這裏，不用擔心索引Perl push function reference