散列解引用的 Perl 散列

Question

我只是在学习 perl。

我正在尝试使用临时变量重写这个多级循环，以便我不需要以前的键( $key1 $key2 )来访问(取消引用)到 $key3 .这样做的最简单方法是什么。谢谢。

for my $key1 ( keys %foo )
{
    for my $key2 ( keys %{$foo{$key1}} )
    {
        for my $key3 ( keys %{$foo{$key1}{$key2}} )

Answer 1

您可以使用 while和 each像这样:

while (my ($key1, $inner_hash) = each %foo) {

    while (my ($key2, $inner_inner_hash) = each %$inner_hash) {

        while (my ($key3, $value) = each %$inner_inner_hash) {
            print $value;
        }
    }
}

这种方法使用的内存少于 foreach keys %hash ，它会在您开始迭代之前构造哈希中所有键的列表。 each 的缺点是您不能指定排序顺序。见 documentation详情。