如何在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;
}