1

我写这个来找出给定文件的文件创建时间:

#!/usr/bin/perl
use strict;
use warnings;

use File::stat;

open (my $fh, '<', "abc.txt") or die "$!";
my $t = (stat($fh))[9];
print $t;

但是,这不起作用,并给出:

Use of uninitialized value $t in print at ./tests.plx line 9.

谁能指出我在这里做错了什么?或者这不能在 Windows/Cygwin 上的 perl (5.14.2) 上完成,我必须选择一些替代方法?

提前致谢。

4

1 回答 1

5

statfromFile::stat将返回File::stat对象。删除use File::stat;以获取数组或使用my $t = stat($fh); print $t->atime;.

于 2013-04-20T12:45:02.390 回答