小编Der*_*Jos的帖子

我有一个大小超过 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";

感谢您的帮助谢谢