散列解除引用的Perl Hash

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是您无法指定排序顺序.有关详细信息,请参阅文档