このスクリプトを改造したいのですがアドバイス下さい。

質問

http://www.rescue.ne.jp/cgi/webvote/
このページにあるvote.cgiの改造をしようとしています。
通常の仕様ですと、投票され、投票数の多い順にソートされるようになっています。
私のやりたいことは、投票順でソートせずに項目名でソートもしくはまったくソートせず項目が登録された順に並ぶようにしたいのです。

１３６行目にsort命令があるのでここをいじればいけそうな感じがするのですが、どうもうまくいきません。
$_に項目名が収められているのはわかったのですが、ではそれでソートしようとするにはどうしたらよいのか。
そもそもソートはハッシュのキーを使ってやってるようなのですが、私の解読能力では「のようだ」止まりで先に進めません。
ヒントもしくはアドバイスをいただけないでしょうか？

回答No.1

pipipi523 · ベストアンサー

動作確認はしてませんが、パッと見で…
foreach (sort { $ans{$b} <=> $ans{$a} } keys %ans) {
を

foreach (sort { $a <=> $b } keys %ans) {
と修正すれば項目順(逆順にしたければ$b <=> $a)

foreach (keys %ans) {
と修正すればソート無しになります

※とりあえず、"perl sort"で検索すればsortの使い方が解ると思います

お礼

ありがとうございました。
まず教えて頂いた通りいれてみましたが、どちらも巧くいきませんでした。
エラーは出ないのですが、目的の通りに並びませんでした。
ふと思ったのですが、ハッシュから取り出す時はハッシュに入れた順番ではなかったような気がします。
ということは何かしらソートしないとダメということでしょうか？

補足

ありがとうございました。
foreach (sort (keys %ans)) にしてみたところ巧く項目名順に並びました。