如何在Perl中使用LWP :: UserAgent获取HTTP响应的主体？

Question

我发现return from 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;