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;