Perl，在 x 秒后使脚本超时？

Question

我一直在搜索这个问题，但很难直接回答这个问题(因为 php 似乎有更多关于这个主题的信息)。我需要让我的 perl 脚本在指定的秒数后死亡，因为，就像现在一样，它们运行时间太长并堵塞了我的系统，我该如何做到让整个脚本在指定的秒数后消失？

我知道杀死脚本的外部解决方案，但我想从 perl 脚本本身内部完成。

谢谢

Answer 1

perldoc -f alarm :

[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;
}

输出:

[sinan@kas ~]$ time perl t.pl
时间到
完毕

真正的 0m5.029s
用户 0m0.027s
系统 0m0.000s