perl - 如何在 Perl 中使用 LWP::UserAgent 获取 HTTP 响应的正文？

Question

我发现来自的返回LWP::UserAgent->request()包含 HTTP 响应的标头和正文。我只需要响应的主体来做一些解析，那我该怎么做呢？

Answer 1

require LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $response = $ua->get('http://search.cpan.org/');

if ($response->is_success) {

    print $response->decoded_content;  # or whatever
}
else {
    die $response->status_line;
}

response->decoded_content将返回响应的正文。

Answer 2

该request方法（根据手册）返回一个HTTP::Response对象，该对象有一个content方法。就这么叫吧。

$ua->request->content;