指定フォルダ以下のファイルを列挙する (更新時刻も表示) lesson004.pl putsDir($ARGV[0]);sub putsDir { my($path) = @_; if (-d $path) { opendir HANDLE, $path; my @fileList = readdir HANDLE; foreach $file (@fileList) { next if ($file eq "."); # …