Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > Загрузка файла на сервер

Автор: Nika 25.6.2006, 09:32

Здравствуйте. У меня вот такая проблемка.
Есть страничка:

Код


print "<FORM enctype=\"multipart/form-data\" method=\"post\" action=\"newmail.cgi\">";
print "<INPUT type=\"file\" name=\"atfile\" default=\"starting value\" size=44>";
print "<INPUT type=\"submit\" name=\"attach\" value=\"прикрепить\" size=20>";

Есть скрипт, который обрабатывает страничку.

Код


$atf = param(atfile);   
 if($atf ne ''){          
          @attach = param(ch);             
          $path='../htdocs/attachment/'.$sid.'/'.time;
          eval { mkpath($path) };
          if ($@){print_err("Couldn't create ".$path.": ".$@);}     
          $path=$path.'/'.$atf;       
          open(F, ">>$path")||die print_err('can not open '.$path);
      while (<$atf>) {
                  print F $_;
               }
      close F;
}

Так вот если это обычный текстовый файл, то все ок. А вот с архивами ис рисенками проблемы. Архив не открывается, пишет, что или тип не winrar или архив поврежден. Если открыть исходный архив и архив с сервера в текстовом редакторе, то они абсолютно идентичны (содержание и размер совпадают), с картинками тоже самое. Ничего не понимаю... smile

и еще вот что, на локальном компьютере работает нормально (на Apache).

Автор: sharq 27.6.2006, 10:05

Nika, размеры файлов одинаковые, в смысле до загрузки и после?

Цитата(Nika @ 25.6.2006, 10:32

)

open(F, ">>$path")||die print_err('can not open '.$path);

Зачем ты используешь дозапись??? Просто производи запись.
И зачем создавать темповую директорию? Создавай темповые файлы в директории (например, upload/)!

Попробуй так:

Код


my $path = '/path/htdocs/attachment/upload/';
if (my $atfile = param('atfile')) {
  open my $fh, '>', $path.$atfile or die "Error: $!";
  while (read($atfile , my $buffer, 1024)) {
    print $fh $buffer;
  }
  close $fh;
}

Цитата(Nika @ 25.6.2006, 10:32

)

и еще вот что, на локальном компьютере работает нормально (на Apache).

Автор: Nika 9.7.2006, 10:08

Спасибо за совет smile

Вечером попробую smile

Я благодаря вашим советам диплом получила smile

веб-клиент был моей дипломной работой smile

Спасибо винграду smile