Question

我想动态创建一个结构如下：

{  
   edition1 => {  
                 Jim => ["title1", "title2"],  
                 John => ["title3", "title4"],  
              },  
  edition2 => { 
                 Jim => ["titleX",],  
                 John => ["titleY,],  
              }  etc
}

我很困惑我是怎么做的基本上我在想：

my $edition = "edition1";  
my $author = "Jim";  
my $title = "title1";  
my %main_hash = ();  

${$main_hash{$edition}} ||= {};   

${$main_hash{$edition}}->{$author} ||= [];     

push @{{$main_hash{$edition}}->{$author}} , $title;

但不知怎的，我不知道我怎么能正确地做到这一点，语法似乎非常复杂如何以一种好的/清晰的方式实现我想要的目标？

Answer 1

你让自己变得相当困难。 Perl有 autovivication ，这意味着如果你使用它们就会神奇地创建任何必要的哈希或数组元素，就像它们包含数据引用一样

你的行

push @{{$main_hash{$edition}}->{$author}} , $title;

是您最接近的，但是您在$main_hash{$edition}周围有一对额外的大括号，它会尝试创建一个匿名哈希，其中$main_hash{$edition}为唯一键，undef为值。您也不需要在关闭和打开括号或大括号之间使用间接箭头

该程序展示了如何使用Perl的工具来更简洁地编写

use strict;
use warnings;

my %data;

my $edition = "edition1";
my $author  = "Jim";
my $title   = "title1";

push @{ $data{$edition}{$author} }, $title;

use Data::Dump;
dd \%data;

输出

{ edition1 => { Jim => ["title1"] } }

使用数组引用值

1 个答案:

输出