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

发布时间：2020-12-14 02:07:08 所属栏目：Windows 来源：网络整理

导读：在Perl(在 Windows上)如何确定目录的上次修改时间？注意： opendir my($dirHandle),"$path"; my $modtime = (stat($dirHandle))[9]; 导致以下错误： The dirfd function is unimplemented at scriptName.pl line lineNumber. 解决方法在CPAN上使用 Win32::

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

注意：

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

导致以下错误：

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

解决方法

在CPAN上使用 Win32::UTCFileTime模块,它反映了 built-in stat function的接口：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!