ソートキーのパラメータnはきめうちでかまいません（コードとして記述してかまいません）
No.1
228
18
60pt
30
30
my $sep = '\s';
my $n = 2;
@sorted = sort {
my @as = split(/$sep/, $a);
my @bs = split(/$sep/, $b);
$as[($n - 1)] <=> $bs[($n - 2)];
} @original;
1
1
2
1
コメント（0件)