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

Question

在 Perl 中(在 Windows 上)如何确定目录的最后修改时间？

注意:

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

导致以下错误:

The dirfd function is unimplemented at scriptName.pl line lineNumber.

Answer 1

显然，真正的答案只是在目录路径上调用 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 最终会耗尽内存并停止执行。无论哪种方式，上面都有答案。