ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Ponomarjov                    2:5029/52      08 Nov 2000  06:30:07
 To : All
 Subject : <none>
 -------------------------------------------------------------------------------- 
 

   {
   my($file,$tmp)=($_[0],$_[1]);
   my($a)=($tmp."\/result_archive_test");
   system("unzip -t $file > $a");
   open(F5,$a) || die "не могу открыть $a : $!\n";
   while(<F5>)
     {
     next unless /\s*testing\:\s*HУЖHЫЙ_ФАЙЛ\s*OK/;
     unlink($a);
     return 1;
     }
   close(F5);
   unlink($a);
   return 0;
   }
  Есть ли более рациональный способ проверки содержимого архива ?  
 -- 
 Dmitry  
 --- tin/1.5.4-20000523 ("1959") (UNIX) (Linux/2.2.16 (i586))
  * Origin: UFC Station (2:5029/52.0)
 
 

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

Тема:    Автор:    Дата:    <none>   Dmitry Ponomarjov   08 Nov 2000 06:30:07   <none>   Sanyo Titaev   09 Nov 2000 21:46:05   <none>   Leonid Subbotin   09 Nov 2000 19:58:21