in reply to File date

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

[download]
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

[download]
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

[download]


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

HtH
L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Replies are listed 'Best First'.
Re^2: File date
by Anonymous Monk on Sep 15, 2015 at 07:14 UTC

    ... 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.

    [download]

    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)
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom