perl:为什么$ hashsize = keys $ hash {$ foo}给出实验警告,我怎样才能更好地编写它？

Question

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

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.

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

谢谢

Answer 1

如果取消引用hashref

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

那应该没有警告.