perl post后下载文件

Question

该请求返回ZIP类型的文件，我如何从该请求中检索该文件？

# put timeouts, proxy etc into the useragent if needed 
my $ua = LWP::UserAgent->new(); 
my $req = POST $in_u, Content_Type => 'form-data', Content => $in_r; 

my $response = $ua->request($req); 

if ($response->is_success()) 
{ 
    print $response->content; 
} 

Answer 1

我想你可以用你的$ REQ对象的内容的方法来获取原始内容返回作为POST的结果。如果内容很大，则content_ref方法更适合，并提供直接操作内容。

my $zfile = $req->content; 

和裂纹在$ zfile与存档::邮编为DVK建议。

Answer 2

您可以使用Archive::Zip CPAN模块