我有兴趣使用perl下载.gz文件并在脚本中提取它而不存储到文件。 Getstore将文件存储到磁盘。是否可以使用perl LWP :: Simple或LWP :: Useragent通过代理下载.gz文件。
谢谢！
答案 0 :(得分：3)
您可以使用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";
模块可以接受标量引用以进行输入。这是一个例子：
{{1}}