如何使用 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

为此，您可以使用 Splitted Zip。

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

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

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

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