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;

由于某种原因，这在我每次尝试运行应用程序时都会向我抛出“错误”。奇怪的是，如果我将 Wikipedia 文章替换为“http://www.google.com”或其他任何内容，效果会很好。

可能是什么问题？

提前谢谢你。

Answer 1

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