ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sanyo Titaev                         2:5070/66.1    09 Nov 2000  21:46:05
 To : Dmitry Ponomarjov
 Subject : <none>
 -------------------------------------------------------------------------------- 
 

 
 08 Nov 28 05:30, Dmitry Ponomarjov wrote to All:
 
  DP> sub test_zip
  DP>   {
  DP>   my($file,$tmp)=($_[0],$_[1]);
  DP>   my($a)=($tmp."\/result_archive_test");
  DP>   system("unzip -t $file > $a");
 
     $from_pipe="unzip -p $file |";
 
  DP>   open(F5,$a) || die "не могу открыть $a : $!\n";
 
     open(F5, $from_pipe);
 
  DP>   while(<F5>)
  DP>     {
  DP>     next unless /\s*testing\:\s*HУЖHЫЙ_ФАЙЛ\s*OK/;
  DP>     unlink($a);
  DP>     return 1;
  DP>     }
  DP>   close(F5);
  DP>   unlink($a);
  DP>   return 0;
  DP>   }
  DP>  Есть ли более рациональный способ проверки содержимого архива ?
 
     как вариант юзать модуль способный работать с зипархивами непосредсвенно
 
 Sanyo
 
 --- GoldED/W32 3.0.1
  * Origin: -=The Bulls=-  mailto:tit@irk.ru (2:5070/66.1)
 
 

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

Тема:    Автор:    Дата:    <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