如何循环遍历哈希？

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

您可以使用内置函数each：

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

Answer 3

您可以使用 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 生成移至单独的模板系统。