##将hash %domains 按照值的大小 输出
my @keysd = sort { $domains{$b} <=> $domains{$a} } keys %domains; #sort the hash;
for (@keysd){
print "#$_ => $domains{$_}\n";
}
低调做人,高调做事
##将hash %domains 按照值的大小 输出 my @keysd = sort { $domains{$b} <=> $domains{$a} } keys %domains; #sort the hash;
低调做人,高调做事
![]() |