Perl：获取要在 cgi-bin 脚本中使用的 stdin 句柄

Question

在 Windows 服务器上使用 perl 5.8.8 我正在编写一个 perl cgi 脚本，使用 Archive::Zip 来动态创建一个必须由用户下载的 zip：这方面没有问题。 zip 在内存中管理，不会使用临时文件或其他方式将物理文件写入磁盘。我想知道如何允许 zip 下载将流写入浏览器。我所做的类似于：

binmode (STDOUT);
$zip->writeToFileHandle(*STDOUT, 0);

但我对这种获取 STDOUT 作为文件句柄的方式感到不安全。它是否正确且稳健？有更好的办法吗？

非常感谢您的建议

Answer 1

你所做的看起来不错！

Answer 2

这是展示不耐烦的美德的好机会。

程序员喜欢分解常量文字的重复部分，并将它们放入常量类型容器中。 （但我将在这里简单地使用一个变量，以免分散对重要部分的注意力。）

use IO::File qw();
my $handle = bless(\*STDOUT => 'IO::File')
    or die $OS_ERROR;
# Why not just `$handle = STDOUT`? Code above is necessary
# because using bare STDOUT invokes on IO::Handle only
# which does not have the binmode method.
⋮
$handle->binmode(1);
$handle->print('something');

这看起来并不像是一个胜利，因为现在的代码比以前多得多。一旦您决定不再打印到 STDOUT 而是打印到真实文件，就会得到巨大的回报。或者也许您想要发球台输出。那么你只需要更改一行代码而不是几行。

my $handle = IO::File->new('/var/log/cgi', 'a')
    or die $OS_ERROR;
# method calls on $handle stay the same as before