ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Gaiduk                     2:5020/400     16 Aug 2000  10:02:00
 To : All
 Subject : Re: Перл! помощь need!
 -------------------------------------------------------------------------------- 
 

 >> теперь получилось вот, работает:
 >> (порезанный кусок скрипта)
 >
 >Ты бы написал явно, чего делать хочешь.
 
 В принципе, уже все работает, разобрался.
 http://wood.lesobank.ru/cgi-bin/mp3stat.pl
 а хотел сделать обработку логов по датам, по хостам, по файлам.
 в нем строки в формате:
 d.mm.yyyy/hh:mm:ss%host_name%0%file_name
 
 >
 >>   my %dnums;
 >
 >Если уж начал объявлять переменные, то объявляй все.
 
 они были обьявлены выше по коду.
 
 >>   open (F, "<$log") || die "error read from $log\n";
 >>   @lgfile = <F>;
 >>   close(F);
 >>   foreach $line (@lgfile) {
 >
 >Массив совершенно лишний, удобнее каноническое:
 
 может быть,
 мы изучим ваше предложение :)
 
 >open F, $log or die "$log: $!";
 >while (<F>) {
 >
 >>     chomp($line);
 >>     ($cdate, $chost, $csucc, $csong) = split(/%/, $line);
 >>       $cdate = (split(/\//, $cdate))[0];
 >>       $dsizes{$cdate} += (stat($mp3dir."/".$csong))[7];
 >>   }
 >
 >Если тебе нужно обработать содержимое каталога целиком,
 >то проще наплевать на log файл и пройтись по каталогу
 >самому. Целее будешь.
 
 Hет, нужно именно пройтись по логу.
 но размер файла берется из каталога, в логе его нет.
 
 >
 >> Сразу назревает следующий вопрос, реализованное мной
 >> сравнение дат не всегда работает правильно :)
 >
 >Ты не указал в какой форме получаешь дату из log'а.
 >Если её получать из дескриптора файла, то проблем
 >не возникает.
 
 Это дата/время начала загрузки файла,
 в формате "d.mm.yyyy"
 
 >> в принципе это некритично, но интересует сама проблема.
 >> у кого нибудь по этому поводу есть идеи?
 >
 >ISO 8601
 
 ???,
 ты мне пальцем покажи  :)
 
 >> http://wood.lesobank.ru/cgi-bin/mp3.pl
 >
 >Поставь charset.
 
 точно.
 щас сделаю
 
 >
 >--
 >Игорь Hиколаев
 >
 
 =GAV
 --- ifmail v.2.15dev5
  * Origin: InterGalactic MegaTrash Co. (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор