如何在Perl中一个接一个地压缩几个文件

Question

我有要使用Perl压缩的文件列表。 目前我有这个：

gzip \@tocompress -> $outputfile
    or die "Failed to compress: $GzipError\n"

但是我想遍历文件，然后一次将它们添加到压缩文件中。 我该如何实现？

Answer 1

看来您正在使用IO :: Compress :: Gzip 。 使用gzip的Append选项：

#!/usr/bin/perl
use warnings;
use strict;

use IO::Compress::Gzip qw{ gzip $GzipError };

my $outputfile = 'out.gz';
my @tocompress = glob '*.txt';

for my $file (@tocompress) {
    next unless -f $file;
    print STDERR "Adding $file\n";
    gzip($file, $outputfile, Append => 1) or die $GzipError;
}