perl - 数据库记录到 Hash-of-hashes

Question

如何从一系列数组中生成哈希中的哈希？我需要从这里开始:

my @data = /one two three/;
my $value = 13:

为此:

$hoh = { 'one' => { 'two' => { 'three' => 13 } } };

这用于将数据库查询的输出转换为层次结构以进行可视化。因此，@data 的长度对于所有记录都是固定的，但会因查询而异。

Answer 1

假设你的意思是用上面的元素“一”、“二”和“三”来初始化@data，那么你可以这样做:

my @data = qw/one two three/;
my $value = 13;<p></p>

<p>my $hash = $value;
$hash = {pop @data => $hash} while @data;
</p>

这样做是用最终的嵌套值初始化一个变量，然后使用从数据数组末尾弹出的键重复构建指向该变量内容的散列。