studies

昨日のエントリの最後で、use sortプラグマを使うことで、perlのソートに安定性を保証することができるという話を書いた。studies.hatenablog.com そこで今回は、これを使って先日のソースを改良してみる。 #! /usr/bin/perl use 5.010; use sort 'stable'; while (<>) { push @lines, $_; $pref = (split)[1]; $pref{$_} …