我可以告诉perl发出警报/信号时，运行超过一定的时间限制，而不退出

Question

我正在尝试设置一个警报类型调用，让我知道如果我的程序运行超过10分钟，我希望程序在发送警报或信号后继续运行。我想我可以做下面的代码，但是当运行时间达到10分钟时，程序停止了。

eval{
     local $SIG{ALRM} = sub { die "alarmn"; };
     alarm (600);
     --code---
     alarm 0;
};
if($@){
     print "Its been ten minutesn";
}

我想让应用程序通知我，但要继续运行

Answer 1

别急着死，你会没事的，

local $SIG{ALRM} = sub { print "Its been ten minutesn"; };