blocks|key|3752533|text|显然维基百科阻止了LWP::Simple+requests：http://www.perlmonks.org/?node_id=695886|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|3752534|下面的代码可以替代：|3752535|#!/usr/bin/perl
use+strict;
use+LWP::UserAgent;

my+$url+=+"http://en.wikipedia.org/wiki/Stack_overflow";

my+$ua+=+LWP::UserAgent->new();
my+$res+=+$ua->get($url);

print+$res->content;|code-block|syntax|javascript|3752536|entityMap|0|LINK|mutability|MUTABLE|url|http://www.perlmonks.org/?node_id=695886^0|U|14|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@$A|T|B|U|1|V]]|C|$]]|$1|D|3|E|5|6|7|W|8|@]|9|@]|C|$]]|$1|F|3|G|5|H|7|X|8|@]|9|@]|C|$I|J]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|C|$]]]|L|$M|$5|N|O|P|C|$Q|R]]]]

Apparently Wikipedia blocks LWP::Simple requests: <a href="http://www.perlmonks.org/?node_id=695886" rel="noreferrer">http://www.perlmonks.org/?node_id=695886</a>

The following works instead:

<pre><code>#!/usr/bin/perl
use strict;
use LWP::UserAgent;

my $url = "http://en.wikipedia.org/wiki/Stack_overflow";

my $ua = LWP::UserAgent-&gt;new();
my $res = $ua-&gt;get($url);

print $res-&gt;content;
</code></pre>

blocks|key|3752597|text|因为Wikipedia阻止了LWP::Simple使用的HTTP用户代理字符串。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3752598|如果你尝试使用它，你会得到一个"403禁止“的-response。|3752599|尝试使用LWP::UserAgent模块来解决这个问题，设置agent-attribute。|3752600|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|H|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|I|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|J|8|@]|9|@]|A|$]]|$1|F|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|G|$]]

Because Wikipedia is blocking the HTTP user-agent string used by LWP::Simple.

You will get a "403 Forbidden"-response if you try using it.

Try the LWP::UserAgent module to work around this, setting the agent-attribute.

blocks|key|5163611|text|另请参阅与Mediawiki相关的CPAN模块-这些模块旨在访问Mediawiki站点(+wikipedia就是其中之一)，可能会给您提供比简单的LWP更多的功能。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|5163612|http://cpan.uwinnipeg.ca/search?query=Mediawiki&mode=dist|offset|length|5163613|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|1L|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|N|8|@]|9|@$D|O|E|P|1|Q]]|A|$]]|$1|F|3|-4|5|6|7|R|8|@]|9|@]|A|$]]]|G|$H|$5|I|J|K|A|$L|C]]]]

Also see the Mediawiki related CPAN modules - these are designed to hit Mediawiki sites (of which wikipedia is one) and might give you more bells and whistles than simple LWP.

<a href="http://cpan.uwinnipeg.ca/search?query=Mediawiki&amp;mode=dist" rel="noreferrer">http://cpan.uwinnipeg.ca/search?query=Mediawiki&amp;mode=dist</a>

blocks|key|3752768|text|您也可以只在LWP::Simple模块上设置UA+-只需导入$ua变量，它将允许您修改底层的UserAgent：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3752769|use+LWP::Simple+qw/get+$ua/;
$ua->agent("WikiBot/0.1");
print+get("http://en.wikipedia.org/wiki/Stack_overflow");|code-block|syntax|javascript|3752770|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

You can also just set the UA on the LWP::Simple module - just import the $ua variable, and it'll allow you to modify the underlying UserAgent:

<pre><code>use LWP::Simple qw/get $ua/;
$ua-&gt;agent("WikiBot/0.1");
print get("http://en.wikipedia.org/wiki/Stack_overflow");
</code></pre>

blocks|key|5163746|text|我用LWP:RobotUA而不是LWP::UserAgent解决了这个问题。你可以阅读下面的文档。您不需要修改太多的差异。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|5163747|http://lwp.interglacial.com/ch12_02.htm|5163748|entityMap|0|LINK|mutability|MUTABLE|url^0|2|B|G|E|0|0|13|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]|$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|T|8|@]|D|@$9|U|A|V|1|W]]|E|$]]|$1|H|3|-4|5|6|7|X|8|@]|D|@]|E|$]]]|I|$J|$5|K|L|M|E|$N|G]]]]

I solved this problem using <code>LWP:RobotUA</code> instead of <code>LWP::UserAgent</code>. You can read the document below. There are not much differences you should modify.

<a href="http://lwp.interglacial.com/ch12_02.htm">http://lwp.interglacial.com/ch12_02.htm</a>

I'm trying to fetch Wikipedia pages using <a href="http://search.cpan.org/dist/libwww-perl" rel="noreferrer">LWP::Simple</a>, but they're not coming back. This code:

<pre><code>#!/usr/bin/perl
use strict;
use LWP::Simple;

print get("http://en.wikipedia.org/wiki/Stack_overflow");
</code></pre>

doesn't print anything. But if I use some other webpage, say <code><a href="http://www.google.com" rel="noreferrer">http://www.google.com</a></code>, it works fine. 

Is there some other name that I should be using to refer to Wikipedia pages? 

What could be going on here?

Why can't I fetch wikipedia pages with LWP::Simple?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我正在尝试使用获取维基百科的页面，但它们不会回来。这段代码：#!/usr/bin/perluse strict;use LWP::Simple;print get("http://en.wikipedia.org/wiki/Stack_overflow");不打印任何东西。但如果我使用其他网页，比如，它就能正常工作。有...

问为什么我不能使用LWP::Simple获取维基百科页面？
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问为什么我不能使用LWP::Simple获取维基百科页面？EN