按目录中的组大小压缩文件

Question

我有 2 个目录，必须打开并压缩其中的所有文件。我的问题是我的 zip 文件每个只能是 5MB，而且这些文件很大。在压缩这些文件之前，我必须了解如何按大小对这些文件进行分组。我想使用 Perl 的 Archive::Zip 模块来完成此操作。我有一些代码，但我想知道这里是否有人知道如何做到这一点，这是代码：

#!/perl/bin/perl -w
use strict;
use warnings;

use Archive::Zip qw/AZ_OK/;
use File::Temp qw/tempfile/;

use constant MB => 1024 * 1024;

#my @dir = '/dir1 dir2/';
my $dir = qw( dir1/);

my @files = do {
 opendir my $fd, "$dir" or die $! or die $!;
 grep -f, map  "$dir$_", readdir $fd;
};

my $zip = Archive::Zip->new;
my $total;
my $limit = 5*MB;



foreach my $file (@files) {

 my $temp = Archive::Zip->new;

 my $member = $temp->addFile($file);
 next unless $member->compressedSize;

 my $fh = tempfile();
 $temp->writeToFileHandle($fh) == AZ_OK or die $!;

 $zip->addMember($member);
 $total += $member->compressedSize;
 die "$total bytes exceeds archive size limit" if $total > $limit;

}

print "Total archive size: $total bytes\n\n";

$zip->writeToFileNamed('zipped.zip') == AZ_OK or die $!;

谢谢！

Answer 1

恕我直言，你正在解决错误的问题。如果您需要将文件压缩成 5M 块，为什么不将它们全部压缩在一起，然后拆分成 5M 块呢？

您可以在 Perl 内部进行拆分（此处就是一个很好的例子）；或者对于不太便携的解决方案，请使用系统命令 split（在 Unix/Linux 上可用；有一个 DOS 端口作为好吧）