Perl中的alarm、eval、die的联合使用

1. eval：

eval是一个表达式，而不是if和while这样的控制结构，eval块发生严重错误时，eval块会停止执行，但程序不会崩溃。所以在程序中执行有可能引起严重错误的代码块，但又不想影响后续程序的执行时，可以把这部分代码块放入eval中。eva块正常执行，还是发生了严重错误，放在$@中，如果没错，$@为空，否则存放错误的原因。可以用$@的boolean值判断结果：print $@ if $@. 

有四种类型的错误，eval不能捕捉，例如内存不足等系统错误，perl都没法跑起来。

想退出eval代码块，用的是die，而不是exit；

2. alarm：

alarm exp；

alarm；

如果exp被忽略，则用$ _的值来代替。实际的时间延迟是不准确的，因为不同的系统实现了不同的报警功能。实际时间可能是可达的第二或小于所请求的值。 在任何一个时间内只能设置一个闹钟定时器。

eg1：

 $timeout=5;

 eval {

           local $SIG{ALRM} = sub { die "after $timeout seconds,run alarm\n" }; #设置超时时的处理函数

           alarm $timeout;

           sleep 10;

           print "in alarm eval\n";

           alarm (0); #程序运行完成，取消前面的超时处理，并且不会开启一个新的超时操作。

    };

print "out of alarm eval\n";

if ($@) {

    if ($@ =~ /die in sig alarm/) {

          print "caught the error";

    }

     else {

          print $@;

    }

 }

output：

# perl test.pl

out of alarm eval

after 5 second,run alarm

解析：因为在eval块中，设置了alarm 5；之后，运行后面的代码块，5s后已经超时了，程序还只运行在sleep 5，所以eval里面的print未执行；

如果将sleep 10换成sleep 2：

# perl test.pl

in alarm eval

out of alarm eval

所以如果alarm $timeout和alarm 0之间的代码运行时间超过了$timeout，就会die，退出eval；

eg2：

 $SIG{ALRM} = sub {

         system("killall -9 firefox") or warn "Fail to kill firefox process \n";

    };

alarm 20;

system("firefox");

alarm 0;

解析：

在运行这段代码的时候，firefox最后并没有被kill掉，那是因为alarm 20和alarm0之间的代码运行时间没有超过20s，然后alarm 0已经取消了超时操作。

如果想在20s后，kill掉firefox，可以如下：

 $SIG{ALRM} = sub {

         system("killall -9 firefox") or warn "Fail to kill firefox process \n";

    };

alarm 20;

system("firefox");
sleep 21;

alarm 0;