如何从Perl中的哈希数组创建哈希哈希?
发布时间:2020-12-16 06:20:22 所属栏目:大数据 来源:网络整理
导读:我有一系列哈希,都有相同的密钥集,例如: my $aoa= [ {NAME='Dave',AGE=12,SEX='M',ID=123456,NATIONALITY='Swedish'},{NAME='Susan',AGE=36,SEX='F',ID=543210,{NAME='Bart',AGE=120,ID=987654,NATIONALITY='British'},] 我想编写一个子程序,它将使用给定的
我有一系列哈希,都有相同的密钥集,例如:
my $aoa= [ {NAME=>'Dave',AGE=>12,SEX=>'M',ID=>123456,NATIONALITY=>'Swedish'},{NAME=>'Susan',AGE=>36,SEX=>'F',ID=>543210,{NAME=>'Bart',AGE=>120,ID=>987654,NATIONALITY=>'British'},] 我想编写一个子程序,它将使用给定的键层次结构将其转换为哈希哈希值: my $key_hierarchy_a = ['SEX','NATIONALITY']; aoh_to_hoh ($aoa,$key_hierarchy_a) = @_; ... } 将返回 {M=> {Swedish=>{{NAME=>'Dave',ID=>123456}},British=>{{NAME=>'Bart',ID=>987654}}},F=> {Swedish=>{{NAME=>'Susan',ID=>543210}} } 请注意,这不仅会创建正确的密钥层次结构,还会删除现在的冗余密钥. 我陷入困境,需要在正确的分层位置创建新的,最内部的哈希. 问题是我不知道“深度”(即键的数量).如果我有一个常数,我可以这样做: %h{$inner_hash{$PRIMARY_KEY}}{$inner_hash{$SECONDARY_KEY}}{...} = filter_copy($inner_hash,[$PRIMARY_KEY,$SECONDARY_KEY]) 所以也许我可以编写一个循环,一次添加一个级别,从散列中删除该键,而不是将剩余的散列添加到“当前”位置,但它有点麻烦,我也不知道如何保持哈希散列中的“位置”…… 解决方法use Data::Dumper; my $aoa= [ {NAME=>'Dave',]; 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' => 543210,'NAME' => 'Susan','AGE' => 36 } ] },'M' => { 'British' => [ { 'ID' => 987654,'NAME' => 'Bart','AGE' => 120 } ],'Swedish' => [ { 'ID' => 123456,'NAME' => 'Dave','AGE' => 12 } ] } }; 编辑:哦,BTW – 如果有人知道如何优雅地克隆参考的内容,请教.谢谢! 编辑编辑:@FM帮助.现在好多了:D (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |