ソートの方法

質問

某CGIを改造中です。
記事を更新日順でソートしなおしたいです。
多分、ソート部分だと思われる部分の現状は、
-----
foreach (@data) {
　　($no,$year1,$month1,$day1,$name～～) = split(/<>/);
　　@tmp = ();
　　@tmp = map {(split /<>/)[0]} @data;
　　@data = @data[sort {$tmp[$b] cmp $tmp[$a]} 0 .. $#tmp];
}
-----
です。
ただ、見ての通り、日付が「$year1,$month1,$day1」と分かれています。これを結合して(20060309のような形)、それを元にソートしなおしたいのですが、どのようにしたら良いでしょうか?
方法を教えてください。お願いします。

回答No.1

twinkleluz · ベストアンサー

# foreachを使う理由が分からないスクリプトですね。。。

そのforeach部分をコメントアウトして、下記のスクリプトを追記してください。

@data = map {$_->[0]}
sort {$b->[2] <=> $a->[2] or $b->[3] <=> $a->[3] or $b->[4] <=> $a->[4]}
map {[$_, split /<>/]} @data;

シュワルツ変換と呼ばれるもので、参考URLに分かりやすく解説があります。
これを覚えるとソートがものすごく楽になりますよ。

これは日付降順に並べ替えますが、昇順に並べ替えたい場合は$aと$bを全部入れ替えてください。

参考URL：

http://www.din.or.jp/~ohzaki/perl.htm#SortST

お礼

ありがとうございました。ばっちりできました!!