windows - 如何使用 Perl 5.004 获取文件的最后修改时间并且没有模块

Question

我有一个独立版本的 Perl for Windows (5.004)，它不包含任何模块。我想运行一个脚本来检查几个文件的最后修改时间。

我可以使用File::qstat，但该模块不存在（Perl 的副本在版本控制中，因此没有安装ActivePerl或Strawberry Perl的人可以使用它）。

似乎有三个选项：

1. 弄清楚如何将更新的、功能更强大的独立 Perl 安装放入版本控制中
2. 只需以某种方式添加 File::Stat 模块，然后执行use lib（这在 5.004 上有效吗？）
3. 使用 5.004 for Windows 中包含的一些内置函数来获取文件状态。

我怎样才能做到这一点？

Answer 1

perl -le '$file=shift or die;print scalar localtime((stat($file))[9])' file

见统计。

Answer 2

你到底为什么要坚持使用 Perl 5.004？我有来自 1999 年的 Perl 5.5.3 的源代码，所以 Perl 5.004 可能比这早几年。（毕竟我找到了 Perl 5.004_04 的源代码；其中最新的时间戳是 1997-10-15 06:46。）所以，那是大约 15 年的历史。

该stat功能可能存在并完成您需要的工作。