« DBの値をランダムにソートする | メイン | IE7beta版を早速使ってみる »
January 31, 2006
perlで多重ソート（sort関数）
SQLでは、多重ソートしたい場合、
order by date ,key
こんな感じてできると思いますが、テキストファイルの処理（たとえばCSVファイルの処理とか）の場合はSQLがつかえないので（DBI関連のモジュールでCSVをSQLで問い合わせることができるのがあった気がしますが）、sort関数をつかいます。
で、多重ソートをしたい場合は、こんな感じにすると期待した結果になります。
@args = sort {$b->{date} cmp $a->{date}
or $b->{key} <=> $a->{key} } @args;
Author nitoka : January 31, 2006 07:26 PM
TrackBack
TrackBack URL:
http://www.nitoka.net/blog/mt-tb.cgi/77
