zip文件压缩比为0 [关闭]

Question

我有一个网页，最终用户可以选择和下载文件作为 zip 存档（这是 NFS 服务器文件）。我正在使用 Perl 作为后端。

使用 Perl zip Archive 库的 addFile，将 zip 文件写入套接字

 $zip->addFile(DSNFS::check_obj_path("$Main::nfsMntDir/$origfile", $Main::nfs_server), $zipfilename);

 my $fh = *STDOUT;
if ($zip->writeToFileHandle($fh,0) != Archive::Zip::AZ_OK) {
 Log::Msg("NFS", 20, "Unable to write to file Handle");
 }

下载 zip 文件后，最终用户无法提取 zip 文件。如果我们检查压缩比，它显示为零。

谁能帮我解决这个问题，并说明发生这种情况的一些原因？

Answer 1

有几种可能性。

首先，您正在写入缓冲文件句柄，即 STDOUT。那个设置是自动刷新吗？如果不是，您可能无法将所有数据写入到 seocket。

use IO::Handle; 
STDOUT->autoflush(1); 

下一步 - 当您通过写入 STDOUT 创建 zip 文件时，它将以流模式创建。这使得 zip 文件的结构与标准 zip 文件略有不同。

大多数程序都可以处理流式 zip 文件，因此这取决于您使用什么来解压缩文件。

你能发布不成功提取的输出吗？

另外，请针对下载的文件之一发布运行“unzip -t”的输出。