时间戳

首页 > 解决方案 > LWP::Simple get() 神秘地失败了

perl - LWP::Simple get() 神秘地失败了

问题描述

在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.

这是怎么回事？

标签： perllwp

解决方案

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

推荐阅读