如何創建哈希數組並在Perl中循環它們？

Question

我試圖創建一個哈希數組，但我無法循環訪問數組。我曾嘗試這個代碼，但它不工作：

for ($i = 0; $i<@pattern; $i++){ 
    while(($k, $v)= each $pattern[$i]){ 
    debug(" $k: $v"); 
    } 
} 

Answer 1

首先，你爲什麼不是use ing strict和warnings？以下幾行應該在您創建的每個Perl程序的頂部，位於#!/usr/bin/perl之後。 總是。

use strict; 
use warnings; 

而且我知道你是不是因爲我敢肯定你會得到一些不錯的錯誤信息出來的從這個strict和warnings，並從代碼中的其他許多地方爲好，通過判斷你的變量使用。

其次，你爲什麼不這樣做：

for my $i (@pattern) { 
    .. 
} 

這通過每一個元素循環中@pattern，同時將其分配給$i之一。然後，在你的循環中，當你想要一個特定的元素時，只需使用$i。對$i所做的更改將反映在@pattern中，並且當循環退出時，$i將超出範圍，基本上會自行清理。

三，拉里牆的愛，請與my聲明變量來定位他們。我承諾，這真的不那麼難，它使你成爲一個更好的人。

第四，最後，你的數組將引用存儲爲散列值，而不是散列值。如果他們存儲散列，則代碼將會出錯，因爲散列以%開頭，而不是$。實際上，參考（任何類型）都是標量值，因此從$開始。因此，我們需要提領他們獲得哈希：

for my $i (@pattern) { 
    while(my($k, $v) = each %{$i}) { 
    debug(" $k: $v"); 
    } 
} 

或者，用自己的方式：

for (my $i = 0; $i<@pattern; $i++) { # added a my() for good measure 
    while(my($k, $v) = each %{$pattern[$i]}) { 
    debug(" $k: $v"); 
    } 
} 

Answer 2

試試這個：

for my $hashref (@pattern) { 
    for my $key (keys %$hashref) { 
     debug "$key: $hashref->{$key}"; 
    } 
} 

並附上您嘗試什麼，最大的問題是each $pattern[$i]。 each函數需要一個散列來處理，但$pattern[$i]返回一個hashref（即對散列的引用）。您可以通過提領$pattern[$i]作爲哈希解決您的代碼：

while(my($k, $v) = each %{$pattern[$i]}) { 

另外，提防每一個功能，它可以leave the hash iterator in an incomplete state。

Answer 3

請參閱Perl數據結構食譜的文檔： perldoc perldsc