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