Как добавить файл в архив? Perl

Question

Выборка из базы сохраняется в файл на сервере и надо этот файл пожать с помощью Compress::Zlib и перекинуть по почте. Такое получается, но не совсем так как хочется. В архиве file.gz сохраняется файл, но без расширения .txt .

use Compress::Zlib;
my $file = './file.txt';
my $gzfile = './file.gz';

open(FILE,$file) or die "$!";
    my @lines = <FILE>;
    my $gz = gzopen($gzfile, 'wb');
    foreach my $line (@lines) {
        my $byteswritten = $ gz-> gzwrite ($line);
    }
    $gz->gzclose();
close(FILE);

Подскажите пожалуйста, как правильно заархивировать файл Zlib'ом.

Answer 1

Товарищ Mike помог. Большое ему спасибо.

use Compress::Zlib;
my $file = './file.txt';
my $gzfile = './file.txt.gz';    
open(FILE,$file) or die "$!";
    my $gz = gzopen($gzfile, 'wb');
    while(<FILE>){
        my $byteswritten = $ gz-> gzwrite ($_);
    }
    $gz->gzclose();
close(FILE);

БЛОГ НА HUSL

Как добавить файл в архив? Perl

Ответы (1 шт):