VPF::Загрузка файла на сервер - Форум программистов

Nika

Дата 25.6.2006, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 19.9.2005
Где: Красноярск

Репутация: нет
Всего: нет

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

Код


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).

Это сообщение отредактировал(а) Nika - 25.6.2006, 11:49

sharq

Дата 27.6.2006, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28

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).

--------------------

[color=gray]There's More Than One Way To Do It[/color]

Nika

Дата 9.7.2006, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 19.9.2005
Где: Красноярск

Репутация: нет
Всего: нет

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

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

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

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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »