2007-12-12から1日間の記事一覧
練習問題の回答をメモ。 ex09-1 #!/usr/bin/perl use strict; use warnings; #my @sorted = sort { -s $a <=> -s $b } glob "/bin/*"; #print "$_\n" foreach @sorted; my @sorted_schwartz = map $_->[0], sort{ $a->[1] <=> $b->[1] } map [ $_, -s $_ ], …