perl - PerlでLWP::UserAgentを使用してHTTP応答の本文を取得するにはどうすればよいですか？

Question

LWP::UserAgent->request()fromからの戻り値には、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;