如何使用Perl中的引用复制数组？

发布时间：2020-12-16 06:21:56 所属栏目：大数据来源：网络整理

导读：如果我执行以下操作,它可以正常工作： print $ref-{element}-[0]-{data}; 我想看看数组中有多少引用,以便我可以遍历它们,但我很难做到这一点. 这是我尝试过的代码,但它不起作用： my @array = @$ref-{element};foreach(@array) { print $_-{data};} 我收到“

如果我执行以下操作,它可以正常工作：

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

我想看看数组中有多少引用,以便我可以遍历它们,但我很难做到这一点.

这是我尝试过的代码,但它不起作用：

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

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

我收到“Not a ARRAY reference”错误

解决方法

列表的哈希是那样棘手的. @ $ref-> {element}被解析为(@ $ref) – > {element},取消引用$ref而不是$ref-> {element}.

尝试

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

要么

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

血腥细节在perllol.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!