Getting modified date for a file (Win32)

ciryon has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks,

I'm trying to get a script to work in win32 environment and need some kind of equivalent for:

return (stat($file))[9];

which returns the modified date for a file but doesn't seem to work here since all dates look like "1970-01-01 00:00:00".

Grateful for help.

Update:

The stat function seems to work, at least when I try it with Active Perl. I forgot to mention that I'm using mod_perl. I also tried Corion's suggestion of enabling warnings, but nothing shows up.

Update II: I think I found the problem. It reports correct dates on files, but not on directories.

Comment on Getting modified date for a file (Win32) Download Code

Replies are listed 'Best First'.
Re: Getting modified date for a file (Win32) by maa (Pilgrim) on Aug 18, 2004 at 09:35 UTC
I use that on NT4 all the time... are you using UNC filenames or a mapped drive? (UNC works). Try a one-liner... C:\rexec>echo > file.txt C:\rexec>`perl -e "print scalar localtime((stat('file.txt'))[9])"` Wed Aug 18 10:33:50 2004	[reply] [d/l]
Re: Getting modified date for a file (Win32) by Corion (Patriarch) on Aug 18, 2004 at 10:30 UTC
Most likely, you are running without warnings and are not error-checking your results. My guess is, as you don't show how `$file` gets filled, that a file with the name in `$file` does not exist. You will need to modify your code to track down this error, preferrably as follows: `use strict; use warnings; use Carp qw( carp ); sub get_mtime { my ($file) = @_; if (! -e $file) { carp "There exists no such file as '$file'"; return undef; }; if (! -f $file) { carp "There exists '$file' but it isn't a file."; return undef; }; my $result = (stat $file)[9]; carp $! if $!; $result; }; my @files = qw( c:\\winnt\\cmd.exe c:\\winnt\\system32\\cmd.exe c:\\winnt ); for my $f (@files) { printf "'%s' has the mtime %s\n", $f, (get_mtime($f) \|\| 'n/a'); };` [download] While that code is overly verbose, it should help you much with diagnosing the real cause of your error.	[reply] [d/l]


Perl Monk, Perl Meditation
	PerlMonks