perl LWP：：简单get()莫名其妙地失败

bksxznpy 于 2022-11-15 发布在 Perl

关注(0)|答案(1)|浏览(169)

在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.
这是怎么回事？

perl

来源：https://stackoverflow.com/questions/56624683/lwpsimple-get-fails-mysteriously

1条答案

按热度按时间

xuo3flqw1#

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;

这至少会给予你一个错误消息。
(You不需要exit 0结尾;这是默认行为。）

赞(0）回复(0）举报 2022-11-15

我来回答

perl LWP：：简单get()莫名其妙地失败

1条答案

相关问题

热门标签

最新问答