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 :: Simple确实很简单。假设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；这仍然是默认行为。）