ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Leonid Subbotin                      2:5007/16.1    09 Nov 2000  19:58:21
 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>  Есть ли более рациональный способ проверки содержимого архива ?
 
 print "passed !!!" unless system("unzip -t file.zip");
 
 system умеет возвращать коды завершения команд ОС
 
                                                        Всегда с вами Sln !
 --- GoldED+/W32 1.1.4
  * Origin: Sln Station (2:5007/16.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