在线
foreach my $key (sort { $timeHash{$b} <=> $timeHash{$a} } keys %timeHash) {
print "\t$key\t\t $timeHash{$key}\n";
}
使用自定义排序功能,您试图将无法正常工作的方式,因为如果你的个子需要访问原始的哈希值。
foreach my $key (sort hashValueDescendingNum (keys(%timeHash))) {
print "\t$key\t\t $timeHash{$key}\n";
}
sub hashValueDescendingNum {
$timeHash{$b} <=> $timeHash{$a}; # Ew.
}
相反,你可以抽象进一步:
foreach my $key (sortedHashKeysByValueDescending(%timeHash)) {
print "\t$key\t\t $timeHash{$key}\n";
}
sub sortedHashKeysByValueDescending {
my %hash = @_;
my @keys = sort { $hash{$b} <=> $hash{$a} } keys %hash;
return @keys;
}
的代码是不是有效,因为它传递%哈希围绕不过,引用会更好:
foreach my $key (sortedHashKeysByValueDescending(\%timeHash)) {
print "\t$key\t\t $timeHash{$key}\n";
}
sub sortedHashKeysByValueDescending {
my $hash = shift;
return sort { $hash->{$b} <=> $hash->{$a} } keys %$hash;
}
在问题不是函数表示法,而是对'%timeHash'的引用...通常,我会写'keys%timeHash',但我不认为这个差异ce触发你得到的错误。 –
确实如此,代码中的其他地方还有其他错误。显然%timeHash没有声明。 –
上面我有“我的$ timeHash = {}” - 这是不正确的? – JDS