|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Igor S Chencov 2:5020/400 09 Oct 2002 14:05:22
To : Alex Dedul
Subject : Re: alarm signal problem
--------------------------------------------------------------------------------
Alex Dedul <Alex.Dedul@f82.n450.z2.fidonet.org> wrote:
AD: Hi, All !
AD: Как сделать так, чтобы после отработки сигнала ALRM выполнение
AD: программы продолжилось с нужного мне места ? В примере выполнение подвисает
AD: после $socks->connect(), вызывается обработчик сигнала и после него
выполнение
AD: продолжает висеть где-то в нутрях Net::SOCKS. Можно ли сделать чтобы после
AD: обработчика был переход на следующую строку, которая if($socket) ?
AD: Заранее спасибо.
[[skip]]
Попробуй так -
$SIG{ALRM} = sub { die "alarm\n" };
eval {
alarm ($opt_timeout);
. . .
alarm(0);
};
if ($@ && $@ ne "alarm\n") {
print "Unknow error $@" ;
} elsif ($@) {
print "TimeOut\n";
} else {
print "Ok\n";
}
AD: WBR, Alex
AD: winamp$ Mortiis 'Fodt til a herske' - Part II
--
-= Игорь Ченцов - системный администратор | =-
-= E-mail chs<at>aquilon.ru | АКВИЛОH =-
-= г. Архангельск | =-
--- ifmail v.2.15dev5
* Origin: Internet-Arkhangelsk Company (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: alarm signal problem 
