use Time::localtime;
sub tempo{
my $tm=localtime();
my $h=$tm->hour;
my $m=$tm->min;
my $s=$tm->sec;
my $md=$tm->mday; ##giorno
my $me=$tm->mon+1; ##mese
my $y=$tm->year+1900;
return "$h:$m:$s [$md/$me/$y] ";
}
Walter
>Hi Gurus,
>
> SYS stuff: perl 5.005 on TRU64 UNIX or
> activeperl 5.6 on Win32.
>
>I am getting a file listing and want to get the ctime (create time) for
>each file. My understanding is that ctime is stored in stat[10] but this
>is returning a interger such as 91070454. I was hoping it would come
>back with a date string that was human readable.
>
>Does anyone know how to either get the ctime as a string or convert
>the interger into a date that is meaning full??
>
>Thanx.
>Dp.
>
>
>~~
>Dermot Paikkos * [EMAIL PROTECTED]
>Network Administrator @ Science Photo Library
>Phone: 0207 432 1100 * Fax: 0207 286 8668
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
