perl - Perl 无需 getstore 即可下载 .gz 文件的最快方法

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