perl: 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
