1

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

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

孩子完成后它返回到外壳。任何想法为什么会发生这种情况？

谢谢！

编辑：这是我使用的 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 脚本在从其他环境调用时不会断开连接（这里 PHP 只是一个示例）。

谢谢！

4

1 回答 1

1

如果我理解正确，您是说 PHP 正在等待孙子结束，即使孩子退出了。

system不会返回，因为php收集了孩子的 STDOUT，即孙子继承的相同 STDOUT。在 Linux 系统上，可以通过将以下内容添加到 Perl 脚本来查看：

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

从外壳：

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]

通常，当您解除进程时，您会重新打开其 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().

于 2015-05-30T05:17:57.670 回答