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

Answer 2

有趣的。 有些网址似乎有效，有些则无效。

使用www.perlmeme.org我也有同样的问题（并且使用不同的 url，这就是我偶然发现这个 trthread 的原因），其他一些 url 工作。 我尝试了不同的wlan热点，没有成功。

我尝试了 Python 并使用了请求，它适用于 www.perlmeme.org（以及之前失败的url ）