perl - 如何为 cmd 命令设置超时？

Question

我在 cmd 中只有以下命令

perl csv2rrd3.pl

但它总是运行很长时间。
有没有办法为它设置超时？
或者我应该在 perl 脚本中完成？如何？

谢谢

Answer 1

在 Perl 内部，您可以设置 alarm 几秒钟后关闭。然后，您可以使用信号处理程序来捕获事件。任何时候只能激活一个闹钟

{ # enter new scope
    # set signal handler
    local $SIG{ALRM} = sub {
       # do cleanup, like closing sockets or whatever
       print STDERR "exited with ALARM\n";
       exit;
    };
    alarm 30; # try half a minute
    ...; # do expensive stuff
}