Perl中定时器alarm的die与kill
2011-06-24 12:59
232 查看
http://yusy1116.blog.163.com/blog/static/6467259220106110541149/
Perl中定时器alarm的die与kill
如果遇到这样的需求,要自动地运行一些相对独立的程序,而这些程序可能有些要挂掉,导致后 面的程序无法运行,要想看到一个完整运行的结果,这时候alarm就会用上场。
per脚本在自动化方面经常用到,其定时器功能不用很浪 费,但也得好好地用。
在perl中定时的一般用法为:
eval {
local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
alarm $timeout;
$nread = sysread SOCKET, $buffer, $size;
alarm 0;
};
if ($@) {
die unless $@ eq "alarm\n"; # propagate unexpected errors
# timed out
}
else {
# didn't
}
经过timeou时间后,发送"alarm\n"的exception信息。eval块内 的die中断当前用执行的程序,但是不会跳出整个程序,这也是为什么用eval的原因了。
后面还有一个对$@的unless判断,unless和 if相反,如果$@不为"alarm\n",则throw exception.这条语句的条件正常条件下不会满足,也就是不会die.如果die被执行,程序会跳出,当前的exception信息会打印出来:
alarm
...propagated at xxx.pl line xxx.
当然这样的脚本我们不会让它这样执行,除非强行地想让程序跳出。
从 上面的分析可知, $SIG{ALRM}中的handler,即sub函数体内代码,die与kill 'INT', -$$的作用类似。
-$$中 的-其实没有什么意义,只是发一个'INT'中信号,对system执行的命令起作用。如果强行指定$$,中断信号不一定对eval内system执行语 句起作用,仅仅是当前perl的进程发送中断信号
***********
eval 捕获异常,即收到alarm信号的die,填入$@
alarm 定时报警
alarm 0 取消
关于die:
--------------仙子的perl服务器中的一段代码
#!/usr/bin/perl
use strict;
use Data::Dumper;
$SIG{__DIE__}=\&log_die;
print "start\n";
sleep 2;
die "123\n";
print "end\n";
sub log_die
{
# my $time=scalar localtime;
# open (HDW,">>",$err_log);
# print HDW $time," ",@_;
# close HDW;
# die @_;
print "in log_die\n";
die "real die @_\n";
}
运行结果:
[root@test1 fork]# perl b.pl
start
in log_die
real die 123
捕获 real die使用 eval{
die "123\n";
};
运行结果:
[root@test1 fork]# perl b.pl
start
in log_die
end
Perl中定时器alarm的die与kill
如果遇到这样的需求,要自动地运行一些相对独立的程序,而这些程序可能有些要挂掉,导致后 面的程序无法运行,要想看到一个完整运行的结果,这时候alarm就会用上场。
per脚本在自动化方面经常用到,其定时器功能不用很浪 费,但也得好好地用。
在perl中定时的一般用法为:
eval {
local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
alarm $timeout;
$nread = sysread SOCKET, $buffer, $size;
alarm 0;
};
if ($@) {
die unless $@ eq "alarm\n"; # propagate unexpected errors
# timed out
}
else {
# didn't
}
经过timeou时间后,发送"alarm\n"的exception信息。eval块内 的die中断当前用执行的程序,但是不会跳出整个程序,这也是为什么用eval的原因了。
后面还有一个对$@的unless判断,unless和 if相反,如果$@不为"alarm\n",则throw exception.这条语句的条件正常条件下不会满足,也就是不会die.如果die被执行,程序会跳出,当前的exception信息会打印出来:
alarm
...propagated at xxx.pl line xxx.
当然这样的脚本我们不会让它这样执行,除非强行地想让程序跳出。
从 上面的分析可知, $SIG{ALRM}中的handler,即sub函数体内代码,die与kill 'INT', -$$的作用类似。
-$$中 的-其实没有什么意义,只是发一个'INT'中信号,对system执行的命令起作用。如果强行指定$$,中断信号不一定对eval内system执行语 句起作用,仅仅是当前perl的进程发送中断信号
***********
eval 捕获异常,即收到alarm信号的die,填入$@
alarm 定时报警
alarm 0 取消
关于die:
--------------仙子的perl服务器中的一段代码
#!/usr/bin/perl
use strict;
use Data::Dumper;
$SIG{__DIE__}=\&log_die;
print "start\n";
sleep 2;
die "123\n";
print "end\n";
sub log_die
{
# my $time=scalar localtime;
# open (HDW,">>",$err_log);
# print HDW $time," ",@_;
# close HDW;
# die @_;
print "in log_die\n";
die "real die @_\n";
}
运行结果:
[root@test1 fork]# perl b.pl
start
in log_die
real die 123
捕获 real die使用 eval{
die "123\n";
};
运行结果:
[root@test1 fork]# perl b.pl
start
in log_die
end
相关文章推荐
- Perl中定时器alarm的die与kill
- Perl中定时器alarm的die与kill
- perl进程终止函数die/warn/exit/kill
- Perl中的alarm、eval、die的联合使用
- Linux进程间通信(四)---信号通信之信号发送捕捉kill()、raise()、alarm()、pause()及其基础实验
- linux下定时器的使用 - alarm() & setitimer()
- android AlarmManager(全局定时器/闹钟)指定时长或以周期形式执行某项操作
- Linux下的定时器:alarm()与setitimer()
- perl中的die语法
- perl中的die|warn|exit
- Linux下定时器的使用--alarm()&setitimer()及Linux下如何实现秒以下精确定时与休眠
- linux下perl中的kill和waitpid
- android alarm定时器
- Linux进程间通信(四)---信号通信之信号发送捕捉kill()、raise()、alarm()、pause()及其基础实验
- UNIX环境高级编程——信号之kill、raise、killpg、alarm、pause、abort、sleep、usleep、nanosleep和setitimer函数
- UC编程8-信号发送函数kill/raise/setitimer/alarm和信号集函数segprocmask
- 信号的发送kill,raise,alarm,setitimer,abort,sigqueue
- APUE学习笔记——10.9 信号发送函数kill、 raise、alarm、pause
- 1.信号处理之:kill(),alarm(),pause()函数
- UNIX环境高级编程——信号之kill、raise、killpg、alarm、pause、abort、sleep、usleep、nanosleep和setitimer函数