perl - 如何使用 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 .