Perl 发送 ajax 响应然后 exec()

Question

Perl 脚本需要接收 ajax 请求，将“成功”消息发送回浏览器，然后“生成”一个进程在后台运行。 （这个生成的进程可能需要 10 分钟才能运行，所以我不希望浏览器等待 - 或者发生 apache 超时）

我的印象是 Perl 的 exec() 函数可以做到这一点。比使用 fork() 或 system() 更好，因为它们应该等待响应。

但是，在将成功消息发送到浏览器之前，脚本似乎正在等待 exec() 程序完成。这是我的 Perl 脚本的最后部分：

print "Content-type: text/html\n\n";
print "success"; # this gets returned via ajax

exec $script_filename, $var1, $var2, $var3; 

一切正常，但浏览器在 $script_filename 完成运行之前没有收到“成功”消息。

我想做的似乎类似于this previous post，但那里没有足够的细节。

有什么想法吗？谢谢。

Answer 1

Apache 将在完成对浏览器的响应之前等待您的脚本完成。您应该安排一个作业在后台运行，然后让您的脚本终止。

为了安排后台作业，您可以将后台任务处理器实现为守护进程，该守护进程在执行任务之前从您的 perl 脚本中通过 IPC（例如，通过 UNIX 域套接字）接受任务。或者，您可以使用现有的 UNIX 工具进行后台作业调度，例如 at 或 batch。详情请见this manpage。

如果您需要非常高的可靠性，您可能还希望在向客户端确认任务已安排之前将任务持久化到外部存储。

Answer 2

我找到了另一个 StackOverflow 问题的答案，似乎可以解决我的问题 - 请参阅 Paul Tomblin's response here。

似乎如果 perl 脚本执行 exec()，那么 apache 会等待。但是如果 perl 脚本先执行 fork，然后 fork 执行 exec()，那么一切都会按预期进行。

这是我的代码中的样子，替换了我原来帖子中的内容：

use POSIX 'setsid';

$SIG{CHLD} = 'IGNORE';

# This should flush stdout.
my $ofh = select(STDOUT);$| = 1;select $ofh;

my $kpid = fork;
if ($kpid)
{
    # Parent process
    print "Content-type: text/html\n\n";
    print "success"; # this gets returned via ajax
}
else
{
    close STDIN;
    close STDOUT;
    close STDERR;
    setsid();
    my $gpid = fork;
    if (!$gpid)
    {
        open(STDIN, "</dev/null") ;
        open(STDOUT, ">/dev/null") ;
        open(STDERR, ">/dev/null") ;
        # Child process
        exec($script_filename, $var1, $var2, $var3) ;
    }
    exit 0;
}

感谢 Adam 立即确认我最初尝试做的事情有缺陷。

感谢乔纳森为我指明了正确的方向。