Re: File date

[Discipulus]

Hello,

File::stat is from 2003 and is an Object Interface to builtin Perl's stat function. with this:

perl -e " use File::stat qw/stat/; my $mtime = (stat $ARGV[0])[9];  my
+($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($mt
ime);print qq!file = $file $mday/$mon/$year\n!;  "  web-browser-gtk2.p
+l

file =  1/0/70   #WRONG

i got the same error as you (dunno why you got epoch(1 january 1970) minus one day).
with File::Stat (note the big S) is ok:

perl -e " use File::Stat; my $mtime = (stat $ARGV[0])[9];  my($sec,$mi
+n,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($mtime);prin
t qq!file = $file $mday/$mon/$year\n!;  "  web-browser-gtk2.pl

file =  11/2/110  #OK

That is the rigth mtime of the file.

Without using any module you use the core stat function and working as expected.

perl -e " my $mtime = (stat $ARGV[0])[9];  my($sec,$min,$hour,$mday,$m
+on,$year,$wday,$yday,$isdst) = localtime($mtime);print qq!file = $fil
e $mday/$mon/$year\n!;  "  web-browser-gtk2.pl

file =  11/2/110  #OK

PS: Please view PerlMonks formatting tips and add code block.

HtH
L*

[Anonymous Monk]

... function interface ... i got the same error as you

Using the mtime accessor/method, it seems to work just fine

$ perl -MPath::Tiny -le " print scalar gmtime( path( shift )->stat->mt
+ime ) " .
Mon Sep 14 09:38:52 2015

$ perl -MPath::Tiny -le " print scalar gmtime( path( shift )->stat->mt
+ime ) " ..
Fri May 29 06:13:23 2009

$ perl -MFile::stat -le " print scalar gmtime( stat( shift )->mtime ) 
+" .
Mon Sep 14 09:38:52 2015

$ perl -MFile::stat -le " print scalar gmtime( stat( shift )->mtime ) 
+" ..
Fri May 29 06:13:23 2009

$ perl -MPath::Tiny -le " print scalar gmtime( path( shift )->stat->mt
+ime ) " NUL
Error stat on 'NUL': Invalid argument at -e line 1.

$ perl -MFile::stat -le " print scalar gmtime( stat( shift )->mtime ) 
+" NUL
Can't call method "mtime" on an undefined value at -e line 1.

File::stat is from 2003 and is an Object Interface to builtin Perl's stat function.

File::stat is core, File::Stat is from 2003 and needs to be removed from CPAN :) maybe replaced with an independent non-core version of File::stat

Read more... (2 kB)