下載。廣州文件，而無需getstore

Question

我感興趣的使用Perl和腳本自身提取它不需要存儲將文件下載一個文件名爲.gz Perl的最快方法。 Getstore將文件存儲到磁盤。而且是可以通過代理用perl LWP ::簡單或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";