Perl Самый быстрый способ скачать.gz файл без gettore

Question

Я заинтересован в загрузке файла.gz с использованием perl и извлечении его в самом скрипте без сохранения в файл. Getstore хранит файл на диске. И возможно ли загрузить файл.gz через прокси с помощью perl LWP::Simple или LWP::Useragent.

Спасибо!

Answer 1

Вместо getstore, ты можешь использовать get(), который можно хранить в скаляре. IO::Compress::Gzip Модуль может принимать скалярную ссылку для ввода. Вот пример:

use LWP::Simple;
use IO::Compress::Gunzip qw(gunzip $GunzipError);

my $content = get('http://someurl');
die if !defined($content);

my $uncompressed;
gunzip(\$content => \$uncompressed) or die "Failed to uncompress content: $GunzipError";