ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ivan Frolcov                         2:5020/175.2   09 Nov 2000  13:48:56
 To : Dmitry Ponomarjov
 Subject : <none>
 -------------------------------------------------------------------------------- 
 

  DP> sub test_zip
  DP>   {
  DP>   my($file,$tmp)=($_[0],$_[1]);
  DP>   my($a)=($tmp."\/result_archive_test");
  DP>   system("unzip -t $file > $a");
  DP>   open(F5,$a) || die "не могу открыть $a : $!\n";
  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>  Есть ли более рациональный способ проверки содержимого архива ?  
 
 Compress::Zlib? Я не знаю, никогда ей не пользовался.
 
 так или иначе, но удобнее было бы
 open(FILE, 'unzip -t file|') or die 'Cannot start mumbo-yumbo...';
 for(FILE){
   ...
 }
 
  DP> -- 
  DP> Dmitry  
 
 --- ifmail v.2.15
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
 
 

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