摘要:
##将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;for (@keysd){ print "#$_ => $domains{$_}\n";} 阅读全文
|