0

Выборка из базы сохраняется в файл на сервере и надо этот файл пожать с помощью 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'ом.

3
  • Zlib сжимает только сами данные, в архиве не содержится метоинформация, такая как изначальное имя файла. Что бы после разархивирования стандартными средствами файл был с расширением, это расширение надо включать в имя самого архива перед gz. т.е. $gzfile = './file.txt.gz';
    – Mike
    18 мая 2020 в 13:14
  • P.S. не стоит считывать весь файл в массив, если он большой может не хватить памяти. лучше архивировать по мере чтения файла, т.е. делать цикл вида while(<FILE>)
    – Mike
    18 мая 2020 в 13:17
  • Большое спасибо, Mike, вы очень помогли. Переписал код и он работает 19 мая 2020 в 4:32

1 ответ 1

0

Товарищ 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);

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.