用哈希数组制作一个哈希

Question

我已经递归地为 perl 组合了一个哈希数组，看起来像这样：

[
    {
        'Default' => {
            'Elect' => { 'P' => 1 }
        }
    },
    {
        'Default' => {
            'Elect' => { 'A' => 1 }
        }
    },
    {
        'Default' => {
            'Elect' => { 'M' => 1 }
        }
    },
    {
        'Default' => {
            'Elect' => { 'I' => 1 }
        }
    },
    {
        'Default' => {
            'Picker' => { 'L' => 1 }
        }
    },
]

与散列数组相比，我的目标是使其更简洁，看起来像单个散列。无论如何我可以让这个哈希数组看起来像一个哈希：

{
    'Default' =>{
        'Elect' =>{
            'P' => 1,
            'A' => 1,
            'M' => 1,
            'I' => 1,
        },
        'Picker' => {
            'L' => 1
        }
    }
}

Answer 1

好吧，这里有一个简单的递归过程来合并两个哈希引用：

sub merge {
    my ($xs, $ys) = @_;
    while (my ($k, $v) = each %$ys) {
        if ('HASH' eq ref $v) {
            merge($xs->{$k} //= {}, $v);
        }
        else {
            $xs->{$k} = $v;
        }
    }
}

然后：

my $data = ...; # your input data structure
my $acc = {};
merge($acc, $_) for @$data;

在$acc 中产生您想要的结果。

还有Hash::Merge 模块，其中：

use Hash::Merge 'merge';
my $acc = {};
$acc = merge $acc, $_ for @$data;