Question

我有一个Perl脚本应该在后台做一些工作。这是很好的描述 - 我分叉，杀死（返回0）父母并在孩子中完成工作。当我直接从shell运行它时，它按预期工作（即在杀死父级后立即返回shell并继续在后台运行）。但是，如果我从另一个环境运行它，例如从PHP执行

    php -r "passthru('my-perl-script.pl')"

在孩子完成后返回shell。任何想法为什么会发生这种情况？

谢谢！

编辑：这是我使用的Perl代码：

#!/usr/bin/env perl
use strict;
use warnings;

local $| = 1;

# fork the process - returns child pid to the parent process and 0
# to the child process
print ' [FORKING] ';
my $pid = fork();
error('Failed to fork: $@') and exit 1 if $@;

# exit parent
print ' [KILLING PARENT] ';
exit 0 if $pid;

# continue as child process
print " [CONTINUING AS CHILD] \n";

# wait 3 secs (for testing) and exit
sleep 3;
print " [DONE]\n";
exit 1;

直接执行时的输出：

$ ./background-test.pl
 [FORKING]  [KILLING PARENT]  [KILLING PARENT]  [CONTINUING AS CHILD]
$  [DONE]

通过PHP执行时的输出：

$ php -r "system('./background-test.pl');"
$ [FORKING]  [KILLING PARENT]  [KILLING PARENT]  [CONTINUING AS CHILD]
  # ... 3 seconds wait ... 
  [DONE]
$

我的问题是为什么Perl脚本在从其他环境调用时不会断开连接（这里只是一个例子）。

谢谢！

Answer 1

如果我理解正确，那么即使孩子退出，你也会说PHP正在等待孙子结束。

system自php收集孩子的STDOUT（孙子继承的STDOUT）以来不会返回。在Linux系统上，可以通过在Perl脚本中添加以下内容来看到这一点：

system("ls -l /proc/$$/fd");

来自shell：

lrwx------ 1 ikegami ikegami 64 Jun  1 14:07 1 -> /dev/pts/0

来自PHP：

l-wx------ 1 ikegami ikegami 64 Jun  1 14:08 1 -> pipe:[10052926]

通常，当您对进程进行deamonize时，重新打开其STDIN，STDOUT和STDERR，将它们重定向到/dev/null或日志文件。

open(STDIN,  '<',  '/dev/null') or die $!;
open(STDOUT, '>',  '/dev/null') or die $!;
open(STDERR, '>>', '/var/log/application.log') or die $!;

通常，当您对某个流程进行移植时，您也会调用POSIX::setsid()。

从另一个env

1 个答案: