将 Archive::Zip zip 文件打印到 Apache2::RequestIO 对象

Question

我有一个使用 mod_perl 的网站。

我正在内存中创建一个 zip 文件（使用 Archive::Zip），并且我希望无需将其写入磁盘即可提供该文件。

Archive::Zip 只会输出到指定的文件句柄，我不认为 Apache2::RequestIO 为我提供了一个。

目前，我只需将 Zip 文件打印到 *STDOUT 即可。但我确信有更好的方法来做到这一点。我通过 RequestRec 对象打印其他所有内容，例如 $r->print(...)

Answer 1

像这样的事情应该有帮助......

use Archive::Zip;
my $zip = Archive::Zip->new();
#create your zip here

use IO::Scalar;
my $memory_file = '';   #scalar as a file
my $memfile_fh = IO::Scalar->new(\$memory_file); #filehandle to the scalar

# write to the scalar $memory_file
my $status = $zip->writeToFileHandle($memfile_fh);
$memfile_fh->close;

#print with apache
#$r->content_type(".......");
$r->print($memory_file);    #the content of a file-in-a-scalar

编辑：
以上已作废。
来自 Archive::Zip 文档：

尽量避免 IO::Scalar

使用 Archive::Zip 最常见的方法之一是生成 Zip
内存中的文件。大多数人都使用 IO::Scalar 来达到此目的。

不幸的是，从 1.11 开始，该模块不再适用于 IO::Scalar
因为它错误地实现了搜索。

任何使用 IO::Scalar 的人都应该考虑移植到 IO::String，这
更小、更轻，并且实现完美兼容
具有常规的可查找文件句柄。

对 IO::Scalar 的支持将来很可能不会恢复，
因为 IO::Scalar 本身无法改变它的实现方式，因为
向后兼容性问题。

Answer 2

在 Perl 5.8+ 版本中，似乎您可以一起跳过 IO::Scalar 和 IO::String 。

use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();

my $memory_file = '';   #scalar as a file
open(my $fh, '>', \$memory_file) || die "Couldn't open memory file: $!";

my $status = $zip->writeToFileHandle($fh);
$fh->close;

$r->print($memory_file);

我认为可能有一种更优化的方法来做到这一点，但它有效......