Perlコーディング初心者質問スレ Part 38

[0767 nobodyさん 04/11/16 17:34:24 ID:???]

>>744
遅レス御免。
これで処理しても示されてる結果にはならないが、
条件が複数のソートはこんな感じでいいと思う。

$sort_routine = sub {
　my @La = split /,/, $a; my @Lb = split /,/, $b;
　abs(4 - $La[2]) <=> abs(4 - $Lb[2]) || $La[0] cmp $Lb[0] || $La[4] <=> $Lb[4];
};

@ahoo = sort $sort_routine @data;