SIGALRM
Sent when the timer set
by the alarm function expires (《perl cookbook》)
在perl中运行一些独立的程序时可能会挂起会处理较长时间,这种情况下可以使用alarm
#!/usr/bin/perl -W
$timeout=5;
eval {
local $SIG{ALRM} = sub { die "$timeout second,run alarm\n" };#定义alarm运行的程序,这里设定为die并打印信息。
alarm $timeout; #设定 5秒后进入超时处理
sleep 20;
print "in alarm eval\n";#因为5秒后会进入超时处理,die会中断eval块,所以这里并不会运行。
alarm (0); #所需的程序已经运行完成,取消超时处理
};
print "out of alarm eval\n"
#####后续处理
if ($@) {
if ($@ =~ /die in sig alarm/) {
print "caught the error";
}
else {
print $@;
}
}
}
|
经过timeout时间,会进入超时处理,在上面的例子中,die会中断eval块的处理,但是不会结束整个程序,eval块以后的程序仍会运行,这就是为什么要使用eval的原因。
如果将sleep改为2,小于timeout时间,则不会进入超时处理,则eval块内的print也会运行。
Only one timer may be counting at once. Each call disables the previous timer, and an argument of 0 may be supplied to cancel the previous timer without starting a new one.
同一时间只能有一个超时时间,每次调用alarm,取消前面的一个超时时间。alarm 0用于取消前一个超时时间,但不启动一个新的超时时间。
再一个例子,这里没有使用eval
$SIG{ALRM} = sub {
system("killall -9 firefox") or warn "Fail to kill firefox process \n";
print join '', time2str("[%Y-%m-%d %H:%M:%S] ", time), "Wait too long, kill the firefox process \n";
};
alarm 120; #120s后kill掉firefox进程。
system(“firefox”);
alarm 0; #取消超时处理
|
shell的超时处理
-
timeout()
-
{
-
waitfor=15
-
command=$*
-
$command &
-
commandpid=$!
-
-
( sleep $waitfor ; kill -9 $commandpid > /dev/null 2>&1 ) &
-
-
watchdog=$!
-
sleeppid=$PPID
-
wait $commandpid > /dev/null 2>&1
-
kill $sleeppid > /dev/null 2>&1
-
}
-
-
-
echo "######Tail log for 15 seconds then exit tail"
-
timeout "tail -f /etc/openvpn/log.vpn"
阅读(11400) | 评论(0) | 转发(0) |