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

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

Answer 2

我认为您可以在$ req对象上使用content方法来获取POST后返回的原始内容。如果内容很大，那么content_ref方法更适合并提供直接操作内容。

my $zfile = $req->content;

并使用Archive :: Zip破解$ zfile，如DVK建议的那样。