Perl使用一系列键进行哈希处理

Question

给定一个包含n个元素（n大于1）的数组，是否有一种优雅的方式来引用哈希结构中的元素，其中每个元素都是序列中的键？

例如：

my @foo = ('a','b','z');

鉴于此或类似的东西，我想访问以下内容：

$hash->{'a'}->{'b'}->{'z'}

如果这是一个固定数量的元素，那将很简单，但我不知道它在运行时会有多少（当然不会超过6或7，但不可能是不可思议的）。

我能想到的唯一模式都涉及循环和引用，看起来很笨拙。 有什么东西不占用半页或需要Data :: Dumper，如果你有一个错误只是为了调试？

Answer 1

这就是Data :: Diver存在的原因：

#!/usr/bin/perl
use warnings;
use strict;

use Data::Diver qw{ Dive };

my $hash = { a => { b => { z => 'HERE' } } };

my @foo = qw( a b z );

print Dive($hash, @foo);