В общем проблема такая:
Имеется кусок кода вида:
use Net::FTP;
my $ftp = Net::FTP->new($host, Debug => 0);
$ftp->login($username,$pass) || die print "Не могу залогиниться";
$ftp->cwd($category) || die print "Не могу перейти в дерикторию";
$ftp->$type || die print "Не верный тип закаченного файла";
$ftp->put($name,$filenamenew) || die print "Не могу закачать файл";
$ftp->put($aboutfile) || die print "Не могу закачать файл с описанием";
print "Файл
$filename загружен на сервер под именем
$filenamenew";
$ftp->quit() || die print "Не могу рассоедититься";
Занимается тем что грузит файл с лок. компа. на фтп сервер.
Вообще скрипт задумывался для больших файлов метров на 600. Понятно что когда пользователь их грузит, то браузер нечего не показывает (вмысле скока осталось, скока загрузилось) Вот и хотелось бы это сделать. И всё было бы не так уж и плохо если бы можно было бы хоть что то сделать во время выполнения команды put. То есть пока эта команда не выполняется то не чего сделать не зя...
Короче получается как в досе. Пока один процесс не выполниться не чё не сделаешь.
Мож кто нить знает как с этим бороться и чё делать? Напомню что цель этого всего сделать индикатор загрузки файла.
