如何在Perl中存储引用列表?

2 perl persistence

我想创建一个记录列表.我可以添加一条记录就好了:

my $records = [
  { ID => 5342755,
    NAME => 'Me',
  } ,
 ];
Run Code Online (Sandbox Code Playgroud)

当我尝试添加另一条记录时,其他记录消失:

$records = [  { 
  ID => 1212121, 
 } ];
Run Code Online (Sandbox Code Playgroud)

有什么问题,如何解决这个问题?

Mat*_*ley 7

问题是你要覆盖数值,$record以便数组中只有一个值.也许尝试以下代码:

my $records = [
  { ID => 5342755,
    NAME => 'Me',
  } ,
 ];

push @$records, { 
  ID => 1212121, 
 };
Run Code Online (Sandbox Code Playgroud)