的Perl：如何循环遍历一个哈希

Question

我发现了很多不同的答案对这个问题，并没有一个似乎工作

这里是我有（？！）：

my %FORM = ["a"=>"0AD", "b"=>"johnny manziel", "c"=>"lincoln"]; 
#my @k = keys (%FORM); 
#for my $iter (@k) { print "$iter\n"; } 
#for my $key (keys %FORM) { 
# print "\t"; 
# print $FORM{$key}; 
# print "\n"; 
#} 

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

典型输出：

./testprinthash.pl 
key: ARRAY(0x13a2998), value: 

我总是得到一个数组，而不是一个键值

Answer 1

你想用括号的210分配给散列时，不是方括号[ ]。

my %FORM = ("a"=>"0AD", "b"=>"johnny manziel", "c"=>"lincoln"); 

的[ ]创建一个数组参考，这是不是你想要的。

检查

• http://perldoc.perl.org/perlref.html
• http://perldoc.perl.org/perlreftut.html