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

[Robert]

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";



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>