我有一个哈希由两个因素决定(我不知道这是什么正确的术语),我生成如下：
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} };
那应该没有警告.