作者LiloHuang (相见不如怀念)
看板perl
标题Re: [问题] 请问排序的问题
时间Thu Jul 26 17:52:09 2007
#!/usr/bin/perl
$word_hash{apple}=3;
$word_hash{time}=7;
my @rank = sort {$word_hash{$b} <=> $word_hash{$a}} keys %word_hash;
foreach $get_word(@rank) {
print "$get_word=
$word_hash{$get_word}\n";
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.71.160
1F：推 collin2315:感谢^^ 08/15 15:47