客户端浏览器关闭时服务器端 Perl CGI 脚本中断

Question

我已经尝试解决一个小问题很长一段时间了，但似乎我无法解决。

我编写了一个 HTML 页面，它在提交表单时调用 perl CGI 脚本。该 CGI 在服务器端执行一定数量的任务，我让脚本将这些任务的步骤打印到 HTML 页面上的 iframe 中。问题是，如果客户端关闭浏览器或只是退出页面，CGI 脚本就会在服务器端中断。

HTML 代码：

<form action="/path/to/script.cgi" method="post" enctype="multipart/form-data" target="processing">
 <p>File to analyse: <input type="file" name="filename" size="50"/></p>
 <p><input type="submit" name="Submit" value="Analyse" /></p>
</form></font></p>

<p style="margin-left: 20"><font face="Arial" size="2" color="#000000">Analysing the file may take a while</font></p>
<iframe name="processing" width="70%" height="300">

</iframe>

CGI 脚本：

my $query = new CGI;
print $query->header(-type => 'text/plain');
function1();
function2_takesLongTime($parameter);
function3();

可以说“function1”只是为文件分析做一些准备（创建文件夹等）。 “function2”是大函数（可能持续 15 分钟）。它是一个 Perl 程序，并且有很多“打印”，由于 CGI 的“text/plain”标头，这些“打印”被重定向到 html 页面的 iframe（在程序中不使用缓冲 $|）。 httpd 的配置使超时远大于 15 分钟，因此它不是来自那里。 “function3”是清理。

如果客户端停留在 html 页面上，则 CGI 脚本可以完美运行。 如果客户端停止（例如用户关闭窗口），函数 1 和 2 将在服务器端执行，但此后脚本似乎会被中断，因为没有进行任何清理。

我尝试使用系统命令将“function2”作为独立程序启动，或者创建一个perl库并调用该库的主函数，它仍然以相同的方式结束。 我认为无论客户端是否停留在页面上，服务器端脚本仍然会一直运行。是否是因为CGI脚本的“text/plain”头无法返回给客户端而导致脚本中断？

如果有人能帮助我解决这个问题，我将非常感激。

Answer 1

您需要以不同的方式构建您的软件。使用某种异步编程，作业队列就可以了，而使用 CGI 程序仅将作业放入队列中。使用您已经提到的库进行转换。

你似乎对这个概念不太熟悉，所以我推荐一个非常简单的：Qudo 。如果您发现它限制太多，请切换到 Gearman，我认为这是最受欢迎的一个在 Perl 世界中（请参阅接口 Gearman::XS 和 Gearman）。

TIMTOWTDI：如果您可以完全放弃 CGI.pm 提供的执行环境，请参见 Catalyst 的 <代码>RunAfterRequest。

Answer 2

通过 CGI 观看长进程提供了解决此问题的直接方法。