如何循環散列？

Question

考慮以下變量：

$test = { 
    '1' => 'A', 
    '2' => 'B', 
    '3' => 'C', 
    '4' => 'G', 
    '5' => 'K', 
} 

如何遍歷所有分配不知道我有鑰匙？

我想填充一個選擇框，結果作爲標籤和鍵作爲隱藏值。

Answer 1

只是做一個foreach循環上的按鍵：

#!/usr/bin/perl 
use strict; 
use warnings; 

my $test = { 
    '1' => 'A', 
    '2' => 'B', 
    '3' => 'C', 
    '4' => 'G', 
    '5' => 'K', 
}; 

foreach my $key(keys %$test) { 
    print "key=$key : value=$test->{$key}\n"; 
} 

輸出：

key=4 : value=G 
key=1 : value=A 
key=3 : value=C 
key=2 : value=B 
key=5 : value=K 

Answer 2

你可以找出你有什麼鍵與keys

my @keys = keys %$test; # Note that you need to dereference the hash here 

或者你可以一次完成所有事情：

print map { "<option value='$_'>$test->{$_}</option>" } keys %$test; 

但你可能會想某種順序：

print map { "<option value='$_'>$test->{$_}</option>" } sort keys %$test; 

...你幾乎可以肯定會更好移動HTML生成了一個單獨的template system。

Answer 3

您可以使用內置的功能each：

while (my ($key, $value) = each %$test) { 
    print "key: $key, value: $value\n"; 
}