Perl如何使用数组元素作为键创建动态多级哈希结构

原生实现（无需额外依赖） #

你可以通过简单的循环遍历自动创建中间层级的哈希，不需要引入第三方包，实现逻辑如下：

• 示例代码：

# 嵌套哈希赋值子例程
# 参数1：目标哈希的引用
# 参数2：存储层级键的数组引用
# 参数3：需要存储的值
sub set_nested_hash {
    my ($hash_ref, $keys, $value) = @_;
    my $current = $hash_ref;
    # 遍历处理前n-1个键，自动创建中间层级
    for my $i (0 .. $#$keys - 1) {
        my $key = $keys->[$i];
        $current->{$key} = {} unless exists $current->{$key};
        $current = $current->{$key};
    }
    # 最后一个键赋值
    $current->{$keys->[-1]} = $value;
}

# 调用示例
my %hashdata;
my @elements = ('level1','level2','level3');
set_nested_hash(\%hashdata, \@elements, 'store anything i want');

# 验证输出：store anything i want
print $hashdata{level1}{level2}{level3};

如果你的键都是可控的内部参数，也可以用更简洁的eval写法，注意该方案存在代码注入风险，禁止用于用户输入的键场景：

my @elements = ('level1','level2','level3');
my $key_expr = join '}{', @elements;
eval "\$hashdata{$key_expr} = 'store anything i want';";

第三方包方案（推荐） #

CPAN的Data::Diver包是专门处理嵌套数据结构的工具，可以非常方便的实现多级哈希的赋值、取值操作，中间层级会自动创建：

• 安装方式：通过cpan命令安装即可 cpan Data::Diver
• 使用示例：

use Data::Diver qw(DiveVal);

my %hashdata;
my @elements = ('level1','level2','level3');
# 直接完成多级赋值
DiveVal(\%hashdata, @elements) = 'store anything i want';

该包还支持混合哈希、数组的嵌套结构操作，取值时如果对应路径不存在不会抛出异常，只会返回undef，适合复杂嵌套结构的处理。

内容的提问来源于stack exchange，提问作者Gordon