linux - Perl 将一段哈希值保存到一个新的哈希值中

Question

这个问题已经有答案了:

Perl hashes with an array of keys (1 个回答)

已关闭 5 年前。

代码

use strict;
use warnings;

my $hash = {
    foo => {
        bar => {
                baz => "hi"
            }
        }
    };

my @arr = qw/foo bar/;

<小时/>

问题

perl 中是否有任何方法可以使用数组/散列来构建散列引用字符串/标识符来指定键？

因此，通过上面的代码，我想从 @arr 获取字符串并使用它们生成字符串

my $newhash = $hash->{'foo'}->{'bar'};

这只是一个示例，嵌套哈希的数量可以是可变的

<小时/>

尝试过

所以我知道如果我知道嵌套的级别那么我就可以使用

my $newhash = { map { $_ => $hash->{$_} } qw/some values/ };

但是当嵌套未知时我似乎想不出办法。

额外

perl 5.20

需要更多信息，请询问。

Answer 1

您需要遍历哈希树。

#!/usr/bin/env perl

# always use these two
use strict;
use warnings;

# use autodie to automatically die on open errors
use autodie;

my $hash = {
    foo => {
        bar => {
                baz => "hi"
            }
        }
    };

my @arr = qw/foo bar/;

my $hash_ref = $hash;
for my $key ( @arr ){
    $hash_ref = $hash_ref->{$key};
}
# $hash_ref is now at the end of the array

print Dumper( $hash_ref );