如何在IIS下的Perl CGI中将进程完全后台化

Question

多亏了这里的其他精彩文章（例如this和that ），我有几种可靠的方法来使Perl脚本中的进程成为后台。

但是，在我的环境（Windows Server 2003上为IIS6）中，它似乎并没有完全成为背景。 使用以下脚本：

use CGI::Pretty qw(:standard);
print header;
print start_html;
print "hi<br>";
system(1,qw(sleep 10));
print "bye";
print end_html;

在睡眠过程运行时，浏览器将保持“连接”状态10秒钟。 屏幕上会同时显示“ hi”和“ bye”，但浏览器似乎正在等待服务器发送更多信息（Firefox 4和IE6的进度条在那10秒钟内一直缓慢移动）。

我希望用户（对于我的真实应用程序）相信该过程是完全扎根的，并且能够轻松关闭网页。 在进度栏仍在移动的情况下，我确定他们会坐下来等待其停止，然后再关闭或导航。

只是要清楚-该过程显示为背景。 我可以关闭网络浏览器。 真正的bacgrouind作业可以继续运行（有时长达一个小时），没有任何问题。 我只是想从UI角度进行清理。

谢谢！

Answer 1

您的问题是CGI程序已完成，但是尚未告知Web服务器它已完成，而是在实际上对浏览器说它已完成之前等待它。 您将需要弄清楚如何进行通信，或者提出解决该错误的方法。 以下是一些可能的策略。

1. 在Unix中，告诉Web服务器该消失的正确方法是守护后台进程。 如何执行此操作的详细信息是特定于Unix的。 但是，对于Win32 perl daemon Googling会使我进入Win32 :: Daemon ，然后进入Win32 :: Service ，这可能会帮助您在Windows上执行类似的操作。 我看过评论，但没有任何细节暗示这将起作用。 如果您需要帮助解决此问题，我建议您去Perlmonks询问。 那里的Perl专门知识比这里还多。

2. 假设您可以使用某种批处理作业调度程序。 然后，您可以仅安排要完成的任务，而不必启动工作。 任务被拾取并运行。 如果您需要运行的工作强度足够大，以至于您希望它在Web服务器之外的其他地方运行，则此策略特别有用。

3. 您的CGI脚本可以转过来并向Web服务器发出一个http请求，以启动该作业，而无需等待。 这是一个简短的示例，向您展示如何执行此操作：

    #! /usr/bin/perl -w use strict; use Carp qw(croak); use Data::Dumper qw(Dumper); use LWP::UserAgent; my $ua = LWP::UserAgent->new(); $ua->add_handler(response_header => sub {croak "complete"}, m_code => 200); my $response = $ua->get("http://www.perl.com/"); if ($response->is_success) { print "Request backgrounded\\n"; } else { print "Uh, oh.\\n"; } 

Answer 2

CGI脚本在重定向标准输出的情况下运行，直接重定向到TCP套接字或管道。 通常，在关闭句柄及其所有副本之前，连接不会关闭。 默认情况下，子进程将继承句柄的副本。

有两种方法可以防止连接等待子进程。 一种是防止子进程继承该句柄，另一种是让子进程在启动时关闭其句柄副本。

如果子进程在Perl中，我认为您可以非常简单地关闭句柄：

close(STDOUT);

如果要防止子进程继承该句柄，则可以使用SetHandleInformation函数（如果您有权访问Win32 API）或在对CreateProcess的调用中将bInheritHandles设置为FALSE。 或者，在启动子进程之前关闭句柄。