"Dave Adams" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
>Robert,
>
>Thanks very much. It works great. Your code was nice and simple.
>
>Much appreciated.
>DA
I can't take credit. I just GOOGLE'd it.
Glad it helped.
Robert
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For ad
Robert,
Thanks very much. It works great. Your code was nice and simple.
Much appreciated.
DA
On 7/28/05, Robert <[EMAIL PROTECTED]> wrote:
> I found this maybe it will help:
>
>
>use strict;
>use File::stat;
>use POSIX qw(strftime);
>
>
>my $file = 'test.txt';
>
>
>m
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 $modt
