如何持续通知用户 Perl CGI 脚本的进度？

Question

我的 Apache 服务器的 cgi-bin 文件夹中有这个 Perl 脚本：

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

$| = 1;

print "Content-type: text/html\r\n\r\n";
print "Hello there!<br />\nJust testing .<br />\n";

my $top = 5;
foreach (1..$top) {
    print "i = $_<br />\n";
    sleep 1;
}

我想在这里实现的是逐步更新网页以向用户显示更新的状态。然而，我实际上得到的是在延迟 5 秒后立即得到的整个输出。

有什么方法可以编写一个能够持续通知用户其进度的脚本吗？我有一个需要很长时间才能完成的脚本，我希望能够实时看到其进度，而不是整个脚本才能完成。

我还尝试将自动刷新模式设置为关闭（$| = 0），但即使这样也没有任何作用。

Answer 1

Randal Schwartz 在通过 CGI 观察长进程中展示了一种更好的方法。

也就是说，在内容类型上撒谎是没有帮助的。下面的脚本完全符合您在使用 Apache 2.2 的 Windows XP 上执行的操作（因为最后一行输出需要 10 秒才能出现）：

#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:cgi);

print header('text/plain');

$| = 1;

print "Job started\n";

for ( 1 .. 10 ) {
    print "$_\n";
    sleep 1;
}

现在，如果您要发送 HTML，则无法避免以下事实：大多数浏览器会等到他们认为页面足够了才开始渲染。

Answer 2

您想要实现的目标是可能的 - 浏览器通常会呈现迄今为止收到的内容，即使它不是完整的文档，只要有足够的标记能够呈现任何内容。然而，我想知道为什么您对某些输出使用 \r\n 而对其他输出仅使用 \n ——您应该保持一致并使用 \n贯穿始终。此外，您指定了 text/html 内容类型，但在内容之前不提供任何 html 标头 ()。

但是，执行此操作的“现代”方法是立即返回页面输出，但将稍后要更新的部分保留为空

元素。然后您可以使用 javascript 更新该元素的内容（通过 AJAX 请求）。

Answer 3

假设您使用的 Apache 版本高于 1.3，这应该可以工作。否则，您必须将脚本制作为 NPH（无解析标头）CGI，这意味着其文件名应以 nph- 为前缀，并且应输出完整的 HTTP 标头，例如。

HTTP/1.1 200 OK\n
Content-type: text/html\n\n

请参阅（有点旧）Apache 常见问题解答了解更多信息

Answer 4

要查看您的脚本是否正常工作，请尝试使用命令行工具以避免与浏览器产生任何混淆。例如curl，一旦收到数据就会输出。

不过，如果您所做的事情是出于重要目的，那么我不会使用您当前的方法。如果脚本需要很长时间才能运行，请将其分叉到后台 (信息）并按进度更新文件或数据库。然后，您可以使用自动刷新（JavaScript 或 META-REFRESH）iFrame 来显示进度。您还可以使用 AJAX，但这有点复杂。

Answer 5

它通过禁用该特定虚拟主机的 Deflate 模块对我有用。

SetEnv no-gzip 1

我想您也可以使用 .htaccess 文件获得相同的结果。

Answer 6

当您将内容类型设置为文本/纯文本时，它是否符合您的预期？也许浏览器中的 HTML 解析导致了输出延迟，因为您实际上并未输出有效的 HTML？ （没有 或 标签）