|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Mikhail Polykovsky 2:5020/400 11 Jun 2004 07:14:38
To : Nikolay Pichtin
Subject : Re: Опять про запуск скрипта из скрипта
--------------------------------------------------------------------------------
NP> Читал доки, просмотрел эхи но так и не нашел
NP> решения - есть скрипт, разбирающий Excel-файл.
NP> Работает долго. Как его запустить (через броузер)
NP> и не дожидаясь окончания выполнения вывести какое-то
NP> сообщение и что-бы броузер не ждал.
Кстати, есть вариант отслеживания долгой работы без fork и прочей радости:
отдаешь браузеру готовый html, в котором есть <span id='counter'
name='counter'></span>
начинаешь разбирать файл.
по мере работы печатаешь туда же в STDOUT отчет, типа
addCounter("Разобрали строчку $i");
sub addCounter{
my $text = shift;
$text =~ s/\n/<br>/g;
$text =~ s/\"/\\\"/g;
print qq|<script language="JavaScript">
<!--
counter.innerHTML = counter.innerHTML + "$text";
//-->
</script>|.(' 'x4096);
}
Если строчки разбираются очень долго, можно добавить страховку в виде
печатания точки каждые 10 секунд (в начало долгой работы):
$SIG{ALRM} = \&ticker;
alarm(10);
sub ticker{
alarm(10);
addCounter('.');
return 1;
}
--
Михаил Полыковский
http://copi.ru/27690/
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: UTC (2:5020/400)
Вернуться к списку тем, сортированных по:
|
