的perl - 陣列的混合物和散列

Question

我有以下代碼：

my @tmpRowArr =(); 
    while (my $row1 = $sth->fetchrow_hashref()) { 
     push (@tmpRowArr, $row1); 
    } 
    $cached_query_hash{$uniqKey} = \@tmpRowArr; 

其是用於從數據庫查詢結果存儲到一個散列REF。已顯示正確。然後我想讀取值，但這不起作用：

my @tmpRowArr2 = $cached_query_hash{$$value{'id'}} ; 
    foreach (@tmpRowArr2){ 
     print $_->{id} ; 
    } 

任何見解，將不勝感激。

Answer 1

看來，這將解決這個問題：

第一線：

$cached_panelists_hash{$$value{'id'}} = \@tmpRowArr; 

最後一行：

my @tmpRowArr2 = @{ $cached_panelists_hash{$$value{'id'}} }; 

Answer 2

如果您結合您的兩行

$cached_query_hash{$uniqKey} = \@tmpRowArr; 
... 
my @tmpRowArr2 = $cached_query_hash{$$value{'id'}} ; 

可以減少他們

my @tmpRowArr2 = \@tmpRowArr; 

這應該說明爲什麼它不工作：你是一個數組分配一個數組引用。您需要取消引用的另一個層面：

my $aref = $cached_query_hash{$$value{'id'}}; 
for (@$aref) { 
    print $_->{id}; 
}