CSVデータを順番に並べる（ソートする）

<IT技術の処方箋：CSVデータを順番に並べる（ソートする）>

"
例えば、@data が以下のような値をもっていたとします。

100,佐藤
104,鈴木
102,青木
102,杉本


●先頭の番号でソートする場合
@data = sort { (split(/,/,$a))[0] <=> (split(/,/,$b))[0] } @data;

●先頭の番号で逆ソートする場合
@data = reverse sort { (split(/,/,$a))[0] <=> (split(/,/,$b))[0] } @data;

●名前でソートする場合
@data = sort { (split(/,/,$a))[1] cmp (split(/,/,$b))[1] } @data;

●名前で逆ソートする場合
@data = reverse sort { (split(/,/,$a))[1] cmp (split(/,/,$b))[1] } @data;


※ポイント
$aと$bは、一時的におく変数のようなものですから気にしない。
$aと$bを逆にすることでも、逆ソートになります。
[ ]の中は、データの列数です（ ０から数えて）
右辺の@dataが元のデータ、左辺の@dataがソート後のデータ

"

慣れてきましたか？慣れてきたら、
Perl(CGI)の間違いを簡単に見つける
というレポートも見ましょう