linux - 如何在初始化脚本中获取 perl 守护进程的 PID？

Question

我有以下 perl 脚本:

#!/usr/bin/perl

use strict;
use warnings;
use Proc::Daemon;

Proc::Daemon::Init;

my $continue = 1;
$SIG{TERM} = sub { $continue = 0 };

while ($continue) {
        # stuff
}

我的初始化脚本中有以下内容:

DAEMON='/path/to/perl/script.pl'
start() {
    PID=`$DAEMON > /dev/null 2>&1 & echo $!`
    echo $PID > /var/run/mem-monitor.pid
}

问题是，这返回了错误的 PID!这将返回守护进程运行时启动的父进程的 PID，但该进程会立即被终止。我需要获取子进程的PID!

Answer 1

Proc::Daemon说

Proc::Daemon does the following:
...
9. The first child transfers the PID of the second child (daemon) to the parent. Additionally the PID of the daemon process can be written into a file if 'pid_file' is defined. Then the first child exits.

然后，在 new ( %ARGS ) 下

pid_file
Defines the path to a file (owned by the parent user) where the PID of the daemon process will be stored. Defaults to undef (= write no file).

另请参阅 Init() 方法说明。这一切都意味着您可能希望首先使用 new。

关键是孙进程是守护进程。然而，childr 传递 pid 并且它可供父级使用。如果在构造函数(守护进程的)中设置了 pid_file => $file_name，则将 pid 写入该文件。

---

评论要求不要让 shell 脚本依赖于另一个脚本编写的文件。

我可以看到两种方法。

• 打印由 $daemon->Init() 从父进程返回的 pid，并在 shell 中获取它。这被问题中的重定向打败了，但我不知道为什么需要它们。父子关系在所有设置完成后立即退出，而守护进程与一切分离。

• Shell 脚本可以使用所需的日志文件名作为参数启动 Perl 脚本，让它通过上述过程将守护程序 pid 写入该文件。该文件仍然由 Perl 输出，但它的作用由 shell 脚本决定。

我想在下面的评论中包含一个声明。我认为这些优于想到的其他两件事:从 shell 保存的配置样式文件中选择文件名更复杂，而解析进程表可能不可靠。