Perl -如何使用元素数组作为键创建动态多级散列。

Question

我喜欢使用存储元素的数组来创建多级哈希，以形成多级键。示例：

@elements = ('level1','level2','level3');

想要这样的东西：

$hashdata{level1}{level2}{level3} = 'store anything i want';

有什么东西能很容易做到吗？包裹？

谢谢

Answer 1

最著名的工具可能是资料来源:潜水员。

use warnings;
use strict;    
use Data::Dump qw(dd);

use Data::Diver qw(DiveVal);

my @elems = qw(lev1 lev2 lev3);

my %hash;

DiveVal(\%hash, @elems) = "value";

dd \%hash;

DiveVal是一个lvalue子程序 (可以分配给)，它可以自动生成。