Как я могу получить тело HTTP-ответа, используя LWP :: UserAgent в Perl?

Question

Я считаю, что возвращаемое значение LWP::UserAgent->request() содержит заголовок и текст ответа HTTP. Мне просто нужно тело ответа, чтобы сделать какой-то анализ, так как я могу делать? * * 1002

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;