指定フォルダ以下のファイルを列挙する (更新時刻順にソート) lesson005.pl %h; putsDir($ARGV[0]); foreach (sort {$h{$a} cmp $h{$b}} keys(%h)) { print $h{$_}." ".$_."\n"; }sub putsDir { my($path) = @_; if (-d $path) { opendir HANDLE, $path; my …