http://park6.wakwak.com/~wmasa/prog/srclib/0027.htm
値で並び替え
foreach(sort {$nedan{$a} <=> $nedan{$b}} keys %nedan)
{ printf "%+6s = %6d\n",$_,$nedan{$_}; }
値で並び替え
foreach(sort {$nedan{$a} <=> $nedan{$b}} keys %nedan)
{ printf "%+6s = %6d\n",$_,$nedan{$_}; }