2017-11-10から1日間の記事一覧
ソートファクトリー こういうの。 use strict; use warnings; use Path::Class; my @list = file('list.txt')->slurp(chomp=>1); my $COUNT = 0; print "$_\n" foreach sort { compare($a, $b) } @list; sub compare{ my($lhs, $rhs) = @_; printf("#%02d: w…
ソートファクトリー こういうの。 use strict; use warnings; use Path::Class; my @list = file('list.txt')->slurp(chomp=>1); my $COUNT = 0; print "$_\n" foreach sort { compare($a, $b) } @list; sub compare{ my($lhs, $rhs) = @_; printf("#%02d: w…
