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

时间:2009-08-11 08:31:00

标签: perl persistence

我想创建一个记录列表。我可以添加一条记录:

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

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

$records = [  { 
  ID => 1212121, 
 } ];

问题是什么,如何解决?

2 个答案:

答案 0 :(得分:7)

问题是你要覆盖$record的值,以便数组中只有一个值。也许尝试以下方法:

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

push @$records, { 
  ID => 1212121, 
 };

答案 1 :(得分:0)

您覆盖变量...

宣布:

my $records = [date structure here];

你真的声明一个数组引用,如果你是一个新手然后尝试(更直观)

my @records = (  
               { 
                 ID => 54321,
                 NAME => 'bar',
                } ,
);

push @records, {ID => 12345, NAME => 'foo'};
print $records[1]->{NAME};

那将打印'foo'