скачать файл после поста 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

Я думаю, что вы можете использовать метод содержимого для вашего объекта $ req, чтобы получить необработанный контент, возвращаемый в результате POST. Если контент огромен, то метод content_ref больше подходит и предлагает напрямую манипулировать контентом.

my $zfile = $req->content;

и взломать $ zfile с помощью Archive :: Zip, как предложил DVK.

Answer 2

Вы можете использовать Archive::Zip CPAN модуль