Re[4]: [apache-talk] keep-alive

[?????? ??????? <novikov@xxxxxxxxxx>]

Примерно так (пишу с нуля прямо тут):

#!/usr/local/bin/perl

$|=1;

$alarmpr = 60; # in seconds

$SIG{'ALRM'} = 'alarm';

alarm $alarmpr;

&DoVeryLongOperation;
alarm 0;
&OutputResults;
exit;

sub alarm {
  print STDOUT "<!-- ждемс -->\n";
  alarm $alarmpr;
}



С уважением, Андрей Новиков

------------------------------------------------------------
Всероссийский Клуб Вебмастеров        http://www.webclub.ru/
По официальным вопросам пишите     mailto:webclub@xxxxxxxxxx


=============================================================================
=               Apache-Talk@xxxxxxxxxxxxx mailing list                      =
Mail "unsubscribe apache-talk" to majordomo@xxxxxxxxxxxxx if you want to quit.
=       Archive avaliable at http://www.lexa.ru/apache-talk                 =