Perl中定时器alarm的die与kill

yadianna

　　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