perl - 在 Perl 中干净地捕获信号

Question

我有一个简单的 Perl 脚本，它只是将一行文本打印到标准输出。我想要完成的是，当此脚本运行时，如果我(或其他人)向该进程发出信号以停止，我希望它捕获该信号并干净地退出。我的代码如下所示

#!/usr/bin/perl -w

$| = 1;
use sigtrap 'handler' => \&sigtrap, 'HUP', 'INT','ABRT','QUIT','TERM';
while(1){
 print "Working...\n";
 sleep(2);
}
sub sigtrap(){
 print "Caught a signal\n";
 exit(1);
}

虽然当我从命令行实际按 ctrl-c 时这很有效，但如果我发出

kill -9 <pid>

它只是死了。如何让它在退出之前执行某些操作？我的一般想法是使用此框架来捕获此脚本何时因服务器重新启动以进行维护或故障而在服务器上死机。

非常感谢提前

Answer 1

信号#9 (SIGKILL) 不能被捕获。这就是 Unix 的设计方式。

但是系统在停机维护时不会发送该信号。至少如果您的守护程序行为正确。它通常会发送 TERM 信号(或者更确切地说，您的守护进程处理脚本在 /etc/init.d 中所做的事情)。只有在超时后未正确关闭的进程才会收到 SIGKILL。

因此，您的目标应该是正确处理 TERM 信号并在 /etc/init.d 中编写包装脚本。这将在系统更改运行级别时调用。

更新:您可以使用 Daemon::Control初始化脚本的模块。