Re: [問題] 請問排序的問題

[LiloHuang (相見不如懷念)]

#!/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
推 collin2315:感謝^^