Perl $SIG{ALRM}處理服務逾時

Perl $SIG{ALRM}處理服務逾時<br />#!/usr/bin/perl<br />some_sub();<br />some_sub();<br />sub some_sub {<br /> eval {<br /> local $SIG{ALRM} = sub {die "died in SIG ALRM";}; #逾時處理過程<br /> alarm(1);#設定1秒鐘後如果下面的代碼沒處理完，則進入逾時處理過程<br />#做事情<br /> my $i=0;<br /> $i++ while 1;<br /> alarm(0);#事情已經做完，取消逾時處理設定<br /> };<br /> if ($@) {<br /> if ($@ =~ /died in SIG ALRM/) {<br /> print "caught the error";<br /> }<br /> else {<br /> print $@;<br /> }<br /> }<br />}</p><p>例子:每秒列印一個"alarm"<br />#!/usr/bin/perl -W<br />$SIG{ALRM}=sub {print "alarm./n";alarm(1)}; #逾時處理<br />alarm(1);#1秒後進入逾時處理<br />while(1){}