perlでちょっと複雑なソート3

この問題、さらに改良してみる。 studies.hatenablog.com #! /usr/bin/perl -a use 5.010; use sort 'stable'; push @lines, $_; $priority{$F[1]} //= $.; END { print (sort { $priority…