立即停止 perl 守护进程

Question

我在 Ubuntu 上运行了一个用 Perl 编写的守护进程，它现在是单线程的。当它启动时，它会执行通常的 Proc::Daemon 操作，然后进入一个由布尔值限制的 while 循环。守护程序使用“服务守护程序启动”正常启动。但是当我想用“service daemon stop”杀死它时，它并没有停止。

应该通过使用信号处理程序翻转布尔值来实现停止：

$SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&signalHandler;

sub signalHandler {
    $continue = 0;
}

不幸的是，主循环也有一个睡眠。所以守护进程在睡眠结束之前不会结束。我希望守护进程立即结束。但我不想设置非常低的睡眠时间。事实上，我希望能够设置几个小时的睡眠时间，如果这是它决定应该做的。

最好的方法是什么？

我正在考虑在主循环中调用某种阻塞函数而不是睡眠。在某个线程死亡之前，此阻塞函数不会返回。然后在信号处理程序中，我会简单地杀死那个睡眠线程。这是一个好方法吗？我该怎么做呢，我以前从未在 Perl 中做过多线程。

感谢您的帮助

Answer 1

以下是针对这种情况的解决方法：

1. 当您的软件开始运行时创建一个命名管道，例如mkfifo

2. 将sleep 调用替换为select 系统调用（作为替代方案，您可以使用perl 包IO::Select 而不是select 系统调用）。

设置选择以监视管道何时准备好输入。

select 允许指定超时，就像睡眠一样。

当超时或满足文件条件时，select 调用返回。

3. 如果发生超时，请运行循环的主体代码。如果管道上出现数据，则终止。

4. 要终止，请将数据发送到命名管道。

Answer 2

如果您还没有这样做，您可以将任何与关闭相关的清理移动到它自己的子程序中，然后让signalHandler() 调用该清理子程序，然后简单地调用exit。 然后编辑您的启动/停止脚本以发送 SIGALRM。 SIGALRM 将中断睡眠。如果您的脚本被编辑以捕捉到这一点，那么一切都会立即停止。

延伸阅读：sleep()

Answer 3

除非你做了一些奇怪的事情来改变它，否则sleep() 函数应该提早唤醒并在收到信号时立即返回。然后，您可以更改循环以在每次睡眠后检查 $continue 标志，以查看您是否收到关闭信号。