my @CSV = ( '1,kame,34', '2,usagi,120', '3,panda,80', ); # 3カラム目でソート map {$_->[0]} sort {$a->[3] <=> $b->[3]} map {[split ',',$_]} @CSV; CSVのデータ内に改行が入ってたらどうすんねんとか、 ダブルクォートで囲まれた文字列内にコンマ入っ…

このモジュールをuseすると使える関数の定義は、↓のようになってるんだけど、 sub sum (@) { reduce { $a + $b } @_ } sub min (@) { reduce { $a < $b ? $a : $b } @_ } sub max (@) { reduce { $a > $b ? $a : $b } @_ } sub minstr (@) { reduce { $a lt …