ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Nikolaev                        2:5030/266     16 Aug 2000  04:20:16
 To : "Alexander Gaiduk"
 Subject : Re: Перл! помощь need!
 -------------------------------------------------------------------------------- 
 

 Alexander Gaiduk <gav@lesobank.ru> wrote:
 
 > теперь получилось вот, работает:
 > (порезанный кусок скрипта)
 
 Ты бы написал явно, чего делать хочешь.
 
 >   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 файл и пройтись по каталогу 
 самому. Целее будешь.
 
 > Сразу назревает следующий вопрос, реализованное мной
 > сравнение дат не всегда работает правильно :)
 
 Ты не указал в какой форме получаешь дату из log'а.
 Если её получать из дескриптора файла, то проблем
 не возникает.
 
 > в принципе это некритично, но интересует сама проблема.
 > у кого нибудь по этому поводу есть идеи?
 
 ISO 8601
 
 > http://wood.lesobank.ru/cgi-bin/mp3.pl
 
 Поставь charset.
 
 -- 
 Игорь Hиколаев
 
 --- ifmail v.2.12.os.sensi
  * Origin: Hе уподобляйся (2:5030/266@fidonet)
 
 

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