Perl 缓冲输出

Question

我正在更改现有解决方案中的一些 Perl 脚本。由于升级 (Windows) 服务器时发生了一些变化，我已将它们从运行 ISAPI 切换到 CGI。这意味着我现在必须手动发送 Content-Type，否则将会失败。

因此，我需要启用输出缓冲（打印语句，因此 STDOUT），发送 Content-Type: text/html，但在重定向的情况下，我需要清除输出缓冲区并发送新标头。

我该怎么做？

或者还有别的办法吗？请注意，该脚本已经使用 print 来输出 HTML，我无法更改它。 （写于20世纪90年代初。）

select(STDOUT);
$| = 0;
print "Content-Type: text/html\n\n";
# somehow clear output
print "Location: login.pl\n\n";

Answer 1

您无法“撤消”对 STDOUT 的打印。在将任何内容发送到 STDOUT 之前，您需要决定是生成 HTML 输出还是重定向。

一种方法是选择内存缓冲区而不是 STDOUT：

my $buffer = '';
open(my $out, '>', \$buffer) or die;
select($out);
print "Content-Type: text/html\n\n";

if (generate_redirect) {
  print STDOUT "Location: login.pl\n\n";
} else {
  print STDOUT $buffer;
}

一旦您确定不会生成重定向，您就可以重新选择< /code> STDOUT 并输出缓冲区：

select STDOUT;
print $buffer;
print "<p>HTML now goes to client instead of \$buffer</p>\n";

Answer 2

最安全的（IMO）方法之一是在输出任何其他内容之前，将决定是否要重定向所需的所有逻辑放在脚本的顶部。

如果您根本不想更改原始脚本，请编写一个单独的脚本，该脚本仅执行重定向/内容类型逻辑，并在必要时调用您的原始脚本。

Answer 3

尚未涵盖的一个答案是简单地将 STDOUT 默认句柄替换为 BEGIN 中的不同句柄，然后在 END 中处理它，如果没有标题，则添加 Content-Type: text/html\n\n 。丑陋，但理论上应该有用。