如何从Perl中的哈希数组创建哈希散列？

Question

我有散列的数组，都具有相同的一组密钥，例如：

my $aoa= [ 
{NAME=>'Dave', AGE=>12, SEX=>'M', ID=>123456, NATIONALITY=>'Swedish'}, 
{NAME=>'Susan', AGE=>36, SEX=>'F', ID=>, NATIONALITY=>'Swedish'}, 
{NAME=>'Bart', AGE=>120, SEX=>'M', ID=>987654, NATIONALITY=>'British'}, 
] 

我想编写一个子程序，将使用给定密钥层次转换成哈希散列这一点：

my $key_hierarchy_a = ['SEX', 'NATIONALITY']; 
aoh_to_hoh ($aoa, $key_hierarchy_a) = @_; 
... 
} 

将返回

{M=> 
    {Swedish=>{{NAME=>'Dave', AGE=>12, ID=>123456}}, 
    British=>{{NAME=>'Bart', AGE=>120, ID=>987654}}}, 
F=> 
    {Swedish=>{{NAME=>'Susan', AGE=>36, ID=>}} 
} 

注意这不仅创造了正确的密钥层次还能去除多余的，现在钥匙。

我被困在需要在其正确分层位置创建新的最内层散列的点。

问题是我不知道“深度”（即键的数量）。如果我有一个恒定的数字，我可以这样做：

%h{$inner_hash{$PRIMARY_KEY}}{$inner_hash{$SECONDARY_KEY}}{...} = filter_copy($inner_hash,[$PRIMARY_KEY,$SECONDARY_KEY]) 

所以也许我可以写一个循环，将一次添加一个级别，请从哈希是关键，比其余哈希添加到“当前”的位置，但它是一个有点麻烦，也我不知道如何保持一个“位置”的哈希散列...

Answer 1

use Data::Dumper; 

my $aoa= [ 
{NAME=>'Dave', AGE=>12, SEX=>'M', ID=>123456, NATIONALITY=>'Swedish'}, 
{NAME=>'Susan', AGE=>36, SEX=>'F', ID=>, NATIONALITY=>'Swedish'}, 
{NAME=>'Bart', AGE=>120, SEX=>'M', ID=>987654, NATIONALITY=>'British'}, 
]; 

sub aoh_to_hoh { 
    my ($aoa, $key_hierarchy_a) = @_; 
    my $result = {}; 
    my $last_key = $key_hierarchy_a->[-1]; 
    foreach my $orig_element (@$aoa) { 
    my $cur = $result; 
    # song and dance to clone an element 
    my %element = %$orig_element; 
    foreach my $key (@$key_hierarchy_a) { 
     my $value = delete $element{$key}; 
     if ($key eq $last_key) { 
     $cur->{$value} ||= []; 
     push @{$cur->{$value}}, \%element; 
     } else { 
     $cur->{$value} ||= {}; 
     $cur = $cur->{$value}; 
     } 
    } 
    } 
    return $result; 
} 

my $key_hierarchy_a = ['SEX', 'NATIONALITY']; 
print Dumper(aoh_to_hoh($aoa, $key_hierarchy_a)); 

按@ FM的评论，你真的想要一个额外的阵列级别在那里。

输出：

$VAR1 = { 
      'F' => { 
        'Swedish' => [ 
            { 
            'ID' =>, 
            'NAME' => 'Susan', 
            'AGE' => 36 
            } 
           ] 
       }, 
      'M' => { 
        'British' => [ 
            { 
            'ID' => 987654, 
            'NAME' => 'Bart', 
            'AGE' => 120 
            } 
           ], 
        'Swedish' => [ 
            { 
            'ID' => 123456, 
            'NAME' => 'Dave', 
            'AGE' => 12 
            } 
           ] 
       } 
     }; 

编辑：哦，顺便说一句 - 如果有谁知道如何优雅参考克隆内容，请教。谢谢！

编辑编辑：@FM帮助。现在所有更好：D

Answer 2

正如你所经历的，编写代码来创建任意深度的散列结构有点棘手。访问这些结构的代码同样很棘手。这令人惊叹：你真的想这样做吗？

更简单的方法可能是将原始信息放入数据库中。只要您关心的密钥被编入索引，数据库引擎就可以非常快速地检索感兴趣的行：向我提供SEX =女性和NATIONALITY =瑞典文的所有人。现在听起来很有希望！

您可能还会发现此感兴趣的loosely related question。