如何使用键列表获取深度散列的元素？ [复制]

Question

给定一个散列和一个键列表，我如何访问键指定的值？

换句话说：

my $h = {};

my @key = qw(hello to everyone);

我怎么去

$h->{hello}->{to}->{everyone}

一口气？

Answer 1

不是我的答案 - 通过Polettix 归功于Merlyn on PerlMonks。

use List::Util;

sub pointer_to_element {
    return reduce(sub { \($$a->{$b}) }, \shift, @_);
}

my $h = { hello => {to => 'everyone'} };

my @key = qw/hello to/;

# get the element
my $scalar_ref = pointer_to_element($h, @key);
print $$scalar_ref, "\n";    # prints "everyone"

# set the element
$$scalar_ref = 'everybody';

# and check it
print "$hash{hello}{to}\n";  # prints "everybody"

把它放在这里是因为它是一个瑰宝，并且便于每个人在谷歌上搜索。

我希望原作者没问题（如果不是，我会删除它）。