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；无论如何这是默认行为。）