如何在 Windows 上的 Perl 中获取目录的最后修改时间？

Question

在 Perl 中（在 Windows 上）如何确定目录的上次修改时间？

注意：

 opendir my($dirHandle), "$path";
 my $modtime = (stat($dirHandle))[9];

导致以下错误：

dirfd 函数在 scriptName.pl 行 lineNumber 处未实现。

Answer 1

显然，真正的答案只是在目录路径上调用 stat （而不是像许多示例让您相信的那样在目录句柄上调用 stat ）（至少对于 Windows）。

例如：

my $directory = "C:\\windows";
my @stats = stat $directory;
my $modifiedTime = $stats[9];

如果您想将其转换为本地时间，您可以这样做：

my $modifiedTime = localtime $stats[9];

如果您想在一行中完成所有操作，您可以这样做：

my $modifiedTime = localtime((stat("C:\\Windows"))[9]);

附带说明，Win32 UTCFileTime perl 模块有一个语法错误，该错误会阻止解释 perl 模块/编译正确。这意味着当它包含在 Perl 脚本中时，该脚本也将无法正常工作。当我将执行任何操作的所有实际代码合并到我的脚本中并重试时，Perl 最终会耗尽内存并停止执行。不管怎样，上面已经有答案了。

Answer 2

 my $dir_path = "path_of_your_directory";
 my $mod_time =  ( stat ( $dir_path ) )[9];

Answer 3

使用 CPAN 上的 Win32::UTCFileTime 模块，该模块镜像 内置统计函数的接口：

use Win32::UTCFileTime qw(:DEFAULT $ErrStr);
@stats = stat $file or die "stat() failed: $ErrStr\n";