Forum Webscript.Ru
Программирование => Perl => Тема начата: Kosmonaft от 12 Октября 2003, 16:23:28
-
В общем проблема такая:
:)
Имеется кусок кода вида:
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. То есть пока эта команда не выполняется то не чего сделать не зя...
Короче получается как в досе. Пока один процесс не выполниться не чё не сделаешь.
Мож кто нить знает как с этим бороться и чё делать? Напомню что цель этого всего сделать индикатор загрузки файла.:)
-
perldoc -f fork
perldoc threads
а по поводу индикации - в JavaScript
-
Ny ti z blin pomog shto symma soiti BLIN
-
Если у тебя не хватает знаний или лень написать скрипт - начинаеш сообщение так: "Мне нужно сделать то-то и то-то и я готов заплатить столько и столько." Все. Кидая кусок кода из perldoc и прося о помощи ты ее будеш ждать долго.
[moderator]
На этом форуме не принято писать транслитом. Есть специальная кнопочка translit>rus. Учти это.
-
что-же вы тут делаете?
-
arto я не совсем понял кому вопрос адресован... Если мне - то в приват. Если Kosmonaft\'у то мимо грифа.
[moderator]
Напоминаю еще раз - Флейм в этом форуме запрещен.
Тема закрыта.