ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      04 Sep 2001  23:39:52
 To : All
 Subject : Upload
 -------------------------------------------------------------------------------- 
 

 
 
  Делаю передачу zip-файла на сервер. Размер файла ~400 кило.
  Через форму определяю $file_zip = "C:\UpLoad\36.zip";
  $real_out_file это собственно сам файл.
 
  Hи как не могу добиться передачи.
  Проходит ~3-4 мин. и выдает "Ошибка чтения передаваемого файла".
  if (!open (IN,"<$file_zip")) {
    $message = "Ошибка чтения передаваемого файла $file_zip.<br>\n";
     &PrintError;
  }
  # Записываем файлы в каталог номера на сервере
  if (!open(OUTFILE, ">$tmp_path/$real_out_file")) {
    $message = "Ошибка записи файла $tmp_path/$real_out_file.<br>\n";
     &PrintError;
  }
   binmode IN;
      while ($bytesread = read(IN,$buffer,512)) {
          $totalbytes += $bytesread;
          binmode OUTFILE;
          print OUTFILE $buffer;
      }
  close IN;
  close OUTFILE;
 -- Hиколай.
 * Губит людей не пиво, губит людей вода!!!
 ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
 ---
  * Origin: Если это глупо, но работает, - значит это не глупо. (2:5056/30)
 
 

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

Тема:    Автор:    Дата:    Upload   Nikolay Pichtin   04 Sep 2001 23:39:52   Re: Upload   PROext   05 Sep 2001 09:32:44   Re: Upload   Artem Chuprina   05 Sep 2001 13:03:07   Re: Upload   Nikolay Pichtin   06 Sep 2001 09:12:24   Re: Upload   Artem Chuprina   07 Sep 2001 12:42:49   Re: Upload   Albert N. MICHEEV   05 Sep 2001 10:58:24