如何使用 Perl 拆分 zip 文件

Question

我有一个大小超过 1000MB 的 zip 文件。我想根据大小将它分成多个压缩的 zip 文件。如果每个拆分的 zip 文件大小为 10 MB，那就太好了。我的输入将是 zip 文件，输出应该是多个压缩的 zip 文件

#!/usr/bin/env perl 
  use strict;
 use utf8;
 use Archive::Zip qw(:ERROR_CODES :CONSTANTS);

  my $file = $ARGV[0];

 my $filesize = -s $file;
 print "Size: $filesize\n";

感谢您的帮助谢谢

Answer 1

您可以为此使用 Splitt Zip。

参考https://www.perlmonks.org/bare/?node_id=534408

其目的是安排要发送的文件，以便生成多个 ZIP 压缩包，每个压缩包都保持有效且独立。

您还可以使用“zip”本身的“拆分存档”功能

$ zip -r -s 10m file.zip directory/ => using the "--split-size" option.

如何使用 Perl 拆分 zip 文件

How to split zip files using Perl

perl

zip