如何在 Perl 中触发并忘记进程？

Question

有人可以告诉我如何在 Perl 中“即发即忘”进程吗？我已经看过 ruby：如何触发并忘记子进程？ 在 Ruby 中做同样的事情。

Answer 1

来自 perlfaq8 的回答 如何在后台启动进程？

---

多个模块可以启动其他进程不阻止你的 Perl
程序。您可以使用 IPC::Open3、Parallel::Jobs、IPC::Run 以及其中的一些
POE 模块。有关详细信息，请参阅 CPAN。

您还可以使用

system("cmd &")

或者可以使用 perlfunc 中“fork”中记录的 fork，并进一步
perlipc 中的示例。如果您使用的是 Unix，需要注意一些事情 -
像系统一样：

STDIN、STDOUT 和 STDERR 是共享的

主进程和后台进程（“子进程”）
进程）共享相同的 STDIN、STDOUT 和 STDERR 文件句柄。如果
两者都尝试同时访问它们，可能会发生奇怪的事情。你
可能想为孩子关闭或重新打开这些。你可以获得
围绕这个问题，“打开”一个管道（参见 perlfunc 中的“打开”），但是
在某些系统中，这意味着子进程不能比
父母。

信号

您必须捕获 SIGCHLD 信号，也可能捕获 SIGPIPE。
当后台进程完成时发送 SIGCHLD。 SIGPIPE 是
当您写入子进程已关闭的文件句柄时发送
（未捕获的 SIGPIPE 可能会导致您的程序无声地死掉）。
这不是“system(”cmd&”)”的问题。

僵尸

你必须准备好“收割”子进程。
完成。

   $SIG{CHLD} = sub { wait };

   $SIG{CHLD} = 'IGNORE';

您也可以使用双叉。你立即 wait() 等待你的
第一个孩子，init 守护进程将 wait() 等待你的孙子
一旦它退出。

   unless ($pid = fork) {
       unless (fork) {
           exec "what you really wanna do";
           die "exec failed!";
       }
       exit 0;
   }
   waitpid($pid, 0);

有关执行此操作的其他代码示例，请参阅 perlipc 中的“信号”。
僵尸不是“system(”prog &”)”的问题。

Answer 2

如果你想守护你的 Perl 脚本，我会研究 Proc： ：守护进程。

Answer 3

嗯，你不应该使用 system() 因为我理解这个调用将在继续执行之前等待函数的返回。我会简单地 shell 到 linux 并以这种方式启动该过程，但请记住，这种方式将调用 shell 的新副本，因此如果您正在寻找性能，我不会在循环中执行此操作，例如

：进程名称> /dev/null 2>&1 &;

这将启动将 STDOUT 和 STDERR 重定向到 /dev/null 的过程。

Answer 4

如果您希望看门狗“子”进程在“父”进程退出时消失，那么您并不真正希望父进程“触发并忘记”子进程。您要么需要 fork（如 brian d foy 所描述），要么将父级的 PID 传递给子级（以便后者可以轮询进程表 - 不推荐）。