LWP :: Simple get () не работает таинственно

Question

В http://perlmeme.org/tutorials/lwp.html первый пример с LWP :: Simple не работал.Я просто скопировал код и запустил:

use strict;
use warnings;
use LWP::Simple;

my $content = get('http://www.perlmeme.org') or die 'Unable to get page';
print $content; 

 exit 0;

И это не сработало, выдал ошибку: Unable to get page at get.pl line 6.

Что происходит?

Answer 1

LWP :: Простое действительно простое.Предполагается, что запрос GET, вероятно, будет успешным, и не предоставит никакой интересной информации об ошибке.

Попробуйте это:

use strict;
use warnings;
use LWP::UserAgent;

my $agent = LWP::UserAgent->new;
my $response = $agent->get('http://www.perlmeme.org');

$response->is_success or die $response->status_line;
print $response->decoded_content;

Это должно как минимум дать вам сообщение об ошибке.

(Вам не нужно exit 0 в конце; это поведение по умолчанию в любом случае.)