ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Gaiduk                     2:5020/400     14 Aug 2000  13:05:31
 To : All
 Subject : Re: Перл! помощь need!
 -------------------------------------------------------------------------------- 
 

 Всем спасибо.
 
 просто я в перле мягко говоря "не гуру" :)
 и меня интересовала работа с хешами.
 
 теперь получилось вот, работает:
 (порезанный кусок скрипта)
 
   my %dnums;
 
   open (F, "<$log") || die "error read from $log\n";
   @lgfile = <F>;
   close(F);
 
   foreach $line (@lgfile) {
     chomp($line);
     ($cdate, $chost, $csucc, $csong) = split(/%/, $line);
       $cdate = (split(/\//, $cdate))[0];
       $dsizes{$cdate} += (stat($mp3dir."/".$csong))[7];
   }
 
   for $kd (sort s_by_date keys %dsizes) {
     print "$kd = $dsizes{$kd}\n";
   }
 
 sub s_by_date { # сортировка по датам в формате d.mm.yyyy
   ($sa1, $sa2, $sa3) = split (/\./, $a);
   ($sb1, $sb2, $sb3) = split (/\./, $b);
   $sa = $sa3*365 + $sa2*30 + $sa1;
   $sb = $sb3*365 + $sb2*30 + $sb1;
   $sa <=> $sb;
 }
 
 Сразу назревает следующий вопрос, реализованное мной
 сравнение дат не всегда работает правильно :)
 в принципе это некритично, но интересует сама проблема.
 у кого нибудь по этому поводу есть идеи?
 ps.
 это все живет на:
 http://wood.lesobank.ru/cgi-bin/mp3.pl
 http://wood.lesobank.ru/cgi-bin/mp3stat.pl
 
 =GAV
 --- ifmail v.2.15dev5
  * Origin: InterGalactic MegaTrash Co. (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Re: Перл! помощь need!   Artur Penttinen   14 Aug 2000 09:33:55   Re: Перл! помощь need!   Alexander Gaiduk   14 Aug 2000 13:05:31