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';
>
>
> 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>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
