我一直在搜索这个问题,但令人惊讶的是很难得到一个直接的答案(因为 php 似乎有关于这个主题的更多信息)..我需要让我的 perl 脚本在指定的秒数后终止,因为,就像现在一样,它们运行时间太长并堵塞了我的系统,我怎样才能使整个脚本在指定的秒数后消失?
我知道杀死脚本的外部解决方案,但我想从 perl 脚本本身内部执行此操作。
Thanks
perldoc -f 警报:
[sinan@kas ~]$ cat t.pl
#!/usr/bin/perl
use strict; use warnings;
use Try::Tiny;
try {
local $SIG{ALRM} = sub { die "alarm\n" };
alarm 5;
main();
alarm 0;
}
catch {
die $_ unless $_ eq "alarm\n";
print "timed out\n";
};
print "done\n";
sub main {
sleep 20;
}
Output:
[sinan@kas ~]$ time perl t.pl
timed out
done
real 0m5.029s
user 0m0.027s
sys 0m0.000s
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)