perl - getstoreなしで.gzファイルをダウンロードするPerl最速の方法

Question

perl を使用して .gz ファイルをダウンロードし、ファイルに保存せずにスクリプト自体に抽出することに興味があります。Getstore はファイルをディスクに保存します。また、perl LWP::Simple または LWP::Useragent を使用してプロキシ経由で .gz ファイルをダウンロードすることは可能ですか。

ありがとう！

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";