我写这篇文章是为了找出给定文件的文件创建时间:
#!/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)上完成,我必须选择一些替代方法吗?
提前致谢。
答案 0 :(得分:5)
stat
的 File::stat
将返回File::stat
个对象。删除use File::stat;
以获取数组或使用my $t = stat($fh); print $t->atime;
。