Question

perl 获取路径下所有文件并获取文件时间

perl 获取路径下所有文件并获取文件时间

Answer 1

$dir = 'd:\/';
 opendir( DIRHANDLE, "$dir" )   or die "can not open dir";

 @allfile = readdir(DIRHANDLE);

 closedir (DIRHANDLE);

   foreach $file(@allfile) {

    $mtime = (stat "$dir\/$file")[9]; 

    my @t = localtime $mtime; 

$date = sprintf "%02u-%02u-%02u %02u:%02u", $t[5] % 100,  $t[4] + 1 ,$t[3], $t[2], $t[1]; 
print"$file $date\n";

            }