Re: Getting Date Stamp of a file on a Win32 System



I found this maybe it will help:


use strict;
use File::stat;
use POSIX qw(strftime);


my $file = 'test.txt';


my $s = stat($file) || die "Can't stat($file) $!\n";


my $modtime = strftime('%Y-%m-%d', localtime($s->mtime));


print "Modification time of $file is $modtime\n";


.