Karminsky, или туплю, или не знаю :( логи squid

perl'ловый скрипт. Это уж совсем просто. Он ждёт с командной строки твоё время.

#!/usr/bin/perl -w
use Time::Local;

$a = <STDIN>;
$b = localtime ($a);
print ($b,"\n");

#   $time
     ($rsec,$rmin,$rhour,$rmday,$rmon,$ryear,$rwday,$ryday,$risdst) = localtime($time);
 
     $ryear =~ s/^\d(\d\d)$/$1/; # делаем год в нормальный вид типа 04
     if ($rsec < 10) {
         $rsec = "0$rsec"; # секунды в вид 00
     }
     if ($rmin < 10) {
         $rmin = "0$rmin"; # минуты в вид 00
     }
     if ($rhour < 10) {
         $rhour = "0$rhour"; # часы в вид 00
     }
     $rmon++;
     if ($rmon < 10) {
         $rmon = "0$rmon"; # месяц в 00
     }
     if ($rmday < 10) {
         $rmday = "0$rmday"; # день в 00
     }
 
     my $rtime = "$rhour:$rmin:$rsec"; # приводим время в вид ЧЧ:ММ:СС
     my $rdate = "$rmday\/$rmon\/$ryear"; # приводим дату в вид DD/MM/YY

кстати, почему-то мой скрипт не стал просить подгружать Time::Local :)

Исправлено Jaguar (16.08.06 13:50)

Серега, я так понимаю, что Андрей пытается своим скриптом обработать логи сквида, а делать перевод времени из одного языка посредством вызыва системной функции - сложно, долго и неудобно...

Не, спасибо, на самом деле интересовала именно команда башовая. Ума не хватило через -d. Ругается почему-то постоянно, мол, неправильно задаешь. Задаю "короче" число, скажем, 111111 - обрабатывает, а задаю такое вот, "длинное" - ошибка...

Jaguar написал(а):

(то, что после точки)

я пытался и без оного, что влекло ту же самую error