perl - 使用 WWW::Mechanize 在 perl 中进行站点抓取

Question

我在 perl 中使用了 WWW::Mechanize 来进行站点抓取应用程序。

当我要通过 WWW::Mechanize 登录到特定站点时，我遇到了一些困难。我已经看过一些 WWW::Mechanize 的例子。但我找不到我的问题。
我在我的代码下面提到过。

#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;
use HTTP::Cookies;
use Crypt::SSLeay;
my $agent = WWW::Mechanize->new(noproxy => 0);
$agent->cookie_jar(HTTP::Cookies->new());
$agent->agent('Mozilla/5.0');
$agent->proxy(['https', 'http', 'ftp'], 'http://proxy.rcapl.com:3128');
$agent->get("http://www.facebook.com");
my $re=$agent->submit_form(
        form_number => 1,
        fields      => {
            Email    => 'xyz@gmail.com',
            Passwd  =>'xyz'
        }
    );
print $re->content();

当我运行代码时，它说:

发布错误 https://www.facebook.com/login.php?login_attempt=1 : 未在 ./test.pl 第 11 行实现

任何人都可以告诉代码出了什么问题。我是否需要设置 facebook 发送的用于登录的所有参数？。

Answer 1

代理有问题:

Error GETing http://www.facebook.com: Can't connect to proxy.rcapl.com:3128 (Bad hostname) at so11406791.pl line 11. 

该程序无需调用代理方法即可为我工作。去掉这个。