perl：为什么$hashsize = keys $hash {$foo}给出实验警告,我怎样

发布时间：2020-12-15 23:25:59 所属栏目：大数据来源：网络整理

导读：我有一个哈希由两个因素决定(我不知道这是什么正确的术语),我生成如下： if (exists $cuthash{$chr}{$bin}){ $cuthash{$chr}{$bin} += 1;}else{ $cuthash{$chr}{$bin} = 1;} 我后来想要获取哈希的每个$chr部分的大小,这在我做的时候有效： for my $chr (sort

我有一个哈希由两个因素决定(我不知道这是什么正确的术语),我生成如下：

if (exists $cuthash{$chr}{$bin}){
    $cuthash{$chr}{$bin} += 1;
}else{
    $cuthash{$chr}{$bin} = 1;
}

我后来想要获取哈希的每个$chr部分的大小,这在我做的时候有效：

for my $chr (sort keys %cuthash){
    my $hashsize = keys $cuthash{$chr};
    ...
}

但我得到警告：

keys on reference is experimental at ../test.pl line 115.

它有效,但显然它并不完美.什么是更好的方法？

谢谢

解决方法

如果取消引用hashref

my $hashsize = keys %{ $cuthash{$chr} };

那应该没有警告.

（编辑：李大同）

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