perlでエレガントに sort -k nのようなカラム指定のソートを実現する方法を教えてください。

ソートキーのパラメータnはきめうちでかまいません(コードとして記述してかまいません)

回答の条件
  • 1人2回まで
  • 登録:2008/11/27 11:49:46
  • 終了:2008/12/04 16:35:19

回答(1件)

id:goodvn No.1

goodvn回答回数228ベストアンサー獲得回数182008/11/27 15:09:56

ポイント60pt
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;

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません