perl投稿の後にファイルをダウンロード

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

を使用することができます。コンテンツが巨大である場合、content_refメソッドがより適切であり、コンテンツを直接操作することを提供する。

my $zfile = $req->content; 

DVKとしてアーカイブ:: Zipを使用して$ zfileにクラックがあります。

Answer 2

あなたは私はあなたが生のコンテンツはPOSTの結果として返さ得るためにあなたの$ reqを対象にコンテンツの方法を使用することができると思うArchive::Zip CPANモジュール