Perl hash of hash of hash…有没有一种“简单”的方法可以在列表末尾获取元素？

Question

我有一个Perl哈希表...大约11或12个元素深。请原谅我没有重复下面的结构！

有些级别有固定的标签，例如< code >‘NAMES’、< code >‘AGES’或类似的标签，所以访问这些级别是可以的，因为我可以直接使用标签，但是我需要循环访问其他变量，这会导致一些非常长的语句。这是一组循环中一半的示例:

foreach my $person (sort keys %$people) {
        foreach my $name (sort keys %{$people->{$person}{'NAMES'}}) {
            foreach my $age (sort keys %{$people->{$person}{'NAMES'}{$name}{'AGES'}}) {
                . . . # and so on until I get to the push @list,$element; part

这只是一个例子，但它遵循了我的一个例子的结构。没有固定名称部分(大写的元素)可能会更短，但在其他情况下需要它们作为参考。

我尝试将元素转换为哈希，以在每个阶段缩短它，例如，对于第二个foreach，我尝试了各种形式：

foreach my $name (sort keys %{$person->{'NAMES'}})

但这并不起作用。我肯定我以前见过类似的情况，所以语义学可能不正确。

我研究了关于Hash of Hash的页面以及对哈希及其元素的引用等等，但运气不好。我见过的示例，每个循环，但它们似乎并不特别短或更容易实现。也许只是有不同的方法来做到这一点，我没有抓住要点。我已经写了一次完整的foreach循环集，如果我不必再重复六次左右就太好了。

当然，可能没有“简单”的方法，但所有的帮助表示感谢！

Answer 1

您可以使用Data::walk，这是一种用于数据结构的File::Find。

Answer 2

你也可以使用每个关键字。这肯定会有所帮助。

while( my ($person, $val1) = each(%$people) ) {
    while( my ($name, $val2) = each(%$val1) ) {
        while( my ($age, $val3) = each(%$val2) ) {
            print $val3->{Somekey};

Answer 3

< code>$person是关键，为了简化内部循环，您需要为某些内容赋值:

foreach my $person_key (sort keys %$people) {
    my $person = $people->{$person_key};
    my $names  = $person->{NAMES};
    foreach my $name (sort keys %$names) {