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

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

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

Автор: kefir01 22.10.2007, 21:29

Есть такой код

Код


open (SAVE, ">$dir/$filename");
binmode(SAVE);
binmode($file);
my $tmpp = 0;
         while (read($file, $buff, 1024))
         {
         print SAVE $buff;
$tmpp++;
         }
close(SAVE);

Скажите, почему при загруке файлов больше 3-5 метров получаю следующую ошибку

Код


Во время загрузки страницы соединение с сервером было сброшено.

Так же не подскажите, кк можно сделать шкалу прогресса.
Заранее спасибо.

Автор: dya 22.10.2007, 21:44

Если интересует upload bar.
http://www.srmiles.com/freestuff/ajax_file_uploader/
http://search.cpan.org/~bct/CGI-Ajax-0.701/lib/CGI/Ajax.pm
http://www.sibsoft.net/xupload.html
По поводу ограничения.
http://perldoc.perl.org/CGI.html

Возможна еще стоит проверить настройки в apache