如何在Perl中使用引用複製數組？

Question

如果我這樣做，它工作正常：

print $ref->{element}->[0]->{data}; 

我想看看有多少引用數組中，這樣我可以通過他們循環，但我有一個很難做到這一點。

這裏是我試過的代碼，但它不工作：

my @array = @$ref->{element}; 

foreach(@array) { 
    print $_->{data}; 
} 

我得到一個「不是一個數組引用」錯誤

Answer 1

列表的哈希值是非常棘手的。 @$ref->{element}被解析爲(@$ref)->{element}，解引用$ref而不是$ref->{element}。

嘗試

my @array = @{$ref->{element}} 

或

my $size = scalar @{$ref->{element}} 

血淋淋的細節中perllol。

Answer 2

由於在調試一般的援助，給Data::Dumper一個看。這對於在數據結構的內部戳動物是非常寶貴的。