Perl不加载维基百科页面？

Question

  

可能重复：
  Why can't I fetch wikipedia pages with LWP::Simple?

首先，我想说我在Perl没有任何经验。事实上，我今天才开始研究它。

然而，我遇到了一个奇怪的问题，我似乎无法解决它或在线寻找解决方案。我的代码如下：

#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $html = get("http://en.wikipedia.org/wiki/Perl") or die "ERROR";
  print $html;

出于某种原因，在每次运行应用程序的尝试中都会向我发出“ERROR”。奇怪的是，如果我用“http://www.google.com”或几乎任何其他内容替换维基百科文章，它的效果相当不错。

可能是什么问题？

提前谢谢。

Answer 1

维基百科拒绝接听匿名来电者。正确设置用户代理。另外，请注意他们不喜欢程序化请求;有一个API，你也可以download整个数据库。