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"; 模块可以接受标量引用以进行输入。这是一个例子：

{{1}}