Perl：访问动态深度的哈希

Question

我正在努力访问/修改未知（即动态）深度的哈希。

假设我正在从文件中读取测量值表（长度、宽度、高度），然后计算面积和体积以创建如下所示的哈希：

#                       #Length  Width  Height  Results
my %results = (     
                        '2' => {        
                                '3' => {        
                                        '7' => {
                                                'Area' => 6,
                                                'Volume' => 42,
                                                },
                                        },
                                },
                        '6' => {        
                                '4' => {        
                                        '2' => {
                                                'Area' => 24,
                                                'Volume' => 48,
                                                },
                                        },
                                },
                        );

我了解如何访问哈希中的单个项目，例如$results{2}{3}{7}{'Area'} 会给我6，或者我可以使用exists $results{2}{3}{7}{'Area'} 检查是否在输入文件中找到了该测量组合。但是，{} 大括号系列的符号假设我在编写代码时知道将有 4 层键。

如果有更多或更少，而我只是在运行时才发现呢？例如。如果文件中只有长度和宽度，你将如何编写代码来访问像$results{2}{3}{'Area'} 这样的哈希？

即给定一个哈希和动态长度的嵌套键列表，在该哈希中可能有也可能没有结果条目，您如何访问哈希以进行基本操作，例如检查该键组合是否具有值或修改该值？

我几乎想要这样的符号：

my @hashkeys = (2,3,7);

if exists ( $hash{join("->",@hashkeys)} ){
    print "Found it!\n";
}

我知道您可以访问散列的子散列并获取它们的引用，因此在最后一个示例中，我可以遍历 @hashkeys，检查每个散列是否在该键处具有子散列，如果有，为下一次迭代保存对该子哈希的引用。然而，这感觉很复杂，我怀疑已经有一种方法可以更容易地做到这一点。

希望这足以理解我的问题，但如果没有，我可以尝试制定 MWE。

谢谢。

Answer 1

所以这里有一个递归函数，它或多或少地做了你想要的：

sub fetch {
    my $ref = shift;
    my $key = shift;
    my @remaining_path = @_;

    return undef unless ref $ref;
    return undef unless defined $ref->{$key};
    return $ref->{$key} unless scalar @remaining_path;
    return fetch($ref->{$key}, @remaining_path);
}

fetch(\%results, 2, 3, 7, 'Volume');  # 42
fetch(\%results, 2, 3);               # hashref
fetch(\%results, 2, 3, 7, 'Area', 8); # undef
fetch(\%results, 2, 3, 8, 'Area');    # undef

但是请检查其他人已经给出的关于不良数据结构的评论，因为这是非常真实的。如果你仍然认为这是你需要的，至少使用 for 循环重写它，因为 perl 不会优化尾递归。

Answer 2

看看“man perlvar”中的$;。

http://perldoc.perl.org/perlvar.html#%24%3b

您可以使用这个想法将可变长度数组转换为单个键。

my %foo;
my (@KEYS)=(2,3,7);
$foo{ join( $; , @KEYS ) }{Area}=6;
$foo{ join( $; , @KEYS ) }{Volume}=42;