この問題、さらに改良してみる。 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]} } @li…

昨日のエントリの最後で、use sortプラグマを使うことで、perlのソートに安定性を保証することができるという話を書いた。studies.hatenablog.com そこで今回は、これを使って先日のソースを改良してみる。 #! /usr/bin/perl use 5.010; use sort 'stable'; …