Не могу разобрать строку acces.log у сквида. Как в перле из первого параметра строки время нормальное сделать? В awk вроде как strftime есть, а в перле есть что похожее?

• RE: Не могу разобрать строку у Squid,Dias, 20:28 , 25-Апр-02
  • RE: Не могу разобрать строку у Squid,ilya, 08:26 , 26-Апр-02

> Не могу разобрать строку acces.log
>у сквида. Как в перле
>из первого параметра строки время
>нормальное сделать? В awk вроде
>как strftime есть, а в
>перле есть что похожее?

@ary = split(/\s/,$stroka_squda);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($ary[0]);
а вообще заглядывай cюда почаще man perlfunc

>> Не могу разобрать строку acces.log
>>у сквида. Как в перле
>>из первого параметра строки время
>>нормальное сделать? В awk вроде
>>как strftime есть, а в
>>перле есть что похожее?
>
>@ary = split(/\s/,$stroka_squda);
>($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($ary[0]);
> а вообще заглядывай cюда почаще
>man perlfunc

Cпасибо! работает, а у меня параноя была из-за
того что  $ary[0] - дробное число, в смыслетам точка есть!