ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Dmitry Y.Labutin                     2:5020/400     22 Mar 2003  16:53:34
 To : All
 Subject : 0->20 :((
 -------------------------------------------------------------------------------- 
 

 Приветствую.
 
 Hаткнулся вот на такую проблему. Есть функция, которая занимается 
 upload'ом файлов:
 sub my_upload
 {
   my $q = shift;
      ^^
      Это объект CGI 
   my $param_name = shift;
      ^^^^^^^^^^^
      Это имя файла для сохранения
 
   my $up_file = $q->param ($param_name);
   if ($up_file ne '')
   {
     open (OUTF, '>../files/tek-'.$param_name.'.zip');
     binmode OUTF;
     my $buffer;
     my $br;
     while ($br = read ($up_file, $buffer, 1024))
     {
       print OUTF $buffer;
     }
     close OUTF;
     close $up_file;
   }
 }
 
 Hа одном сервере все работает замечательно. Hа другом происходит какая-
 то фантастика - все нулевые байты в файле заметяются на 20 (в 
 десятеричной 32), т.е. на пробелы :((( Где грабли? Что нужно покрутить?
 
 -- 
 Дмитрий Лабутин
 dmitry@incub.ru
 
 Origin: Быстpо поднятый Мастдай не считается yпавшим
 
 $_='t>:ECJP*^P|23FE:?Pl=5:>2p<:D^CFn';tr#P-~\x20-O#\x20-~#;print
 
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    0->20 :((   Dmitry Y.Labutin   22 Mar 2003 16:53:34   Re: 0->20 :((   Konstantin Tokar   22 Mar 2003 19:29:40   Re: 0->20 :((   Serge Pekarsky   23 Mar 2003 13:05:47   Re: 0->20 :((   Artem Chuprina   23 Mar 2003 13:53:17   0->20 :((   Alexander Botarjev   23 Mar 2003 11:04:12