Ключевые слова:perl, signal, timeout, example, (найти похожие документы)
Date: Wed, 24 Oct 2001 13:19:03 +0000 (UTC)
From: Igor S Chencov <chs@fender.aquilon.ru>
Newsgroups: fido7.ru.perl
Subject: [Perl] Прервать скрипт, если истек таймаут времени его выполнения.
o> У меня есть скрипт. Я хочу, что бы если он допустим работает больше минуты я
o> хочу его прибить. Можно ли как нить это реализовать ?
$SIG{ALRM} = sub { die "alarm\n" };
eval {
alarm ($TIMEOUT);
. . .
alarm(0);
};
if ($@ && $@ ne "alarm\n") {
print "Unknow error $@" ;
} elsif ($@) {
print "TimeOut";
} else {
print "Ok";
}