Как сжать несколько файлов в Perl один за другим

Question

У меня есть список файлов, которые я хочу сжать с помощью Perl.В настоящее время у меня есть это:

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

Но я хочу перебрать файлы и добавить их по одному в файл сжатия.Как мне этого добиться?

Answer 1

Кажется, вы используете IO :: Compress :: Gzip .Используйте Append вариант gzip:

#!/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;
}