如何在 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;