この問題、さらに改良してみる。 studies.hatenablog.com #! /usr/bin/perl -a use 5.010; use sort 'stable'; push @lines, $_; $priority{$F[1]} //= $.; END { print (sort { $priority{(split /\s+/, $a)[1]} <=> $priority{(split /\s+/, $b)[1]} } @lines); } awk風のループを仮定する-aオプションをつけて、フィー…
