无法使用perl访问带有WWW::mechanize的https页面

Question

我正在尝试使用perl中的WWW::Mechanize库访问https页面。这就是我所拥有的：

#!/usr/local/bin/perl -w
use strict;
use lib '/home/perl_modules/libwww-perl-5.836/lib';
use lib '/home/perl_modules/WWW-Mechanize-1.72/lib';
use lib '/home/perl_modules/HTML-Tree-5.03/lib';
use lib '/home/perl_modules/Crypt-SSLeay-0.64/lib';
use WWW::Mechanize;

my $m = WWW::Mechanize->new();


my $url = "http://alumni.nd.edu";
my $alias = "Linux Mozilla";

$m->agent_alias($alias);

$m->follow_link(url => "/s/1210/start.aspx?sid=1210&gid=1&pgid=3&cid=40");

下面是输出：

Error GETing https://securelb.imodules.com/?sid=1210&gid=1&pgid=3&cid=40&returnurl=http%3a%2f%2falumni.nd.edu%2f: Server closed connection without sending any data back at www_mech_test.pl line 17

在阅读了一些关于WWW::Mechanize的帮助页面后，我尝试设置别名并包含Crypt-SSLeay模块，但我仍然收到上面的错误。我遗漏了什么？这是在RHEL 5.5下运行的。

Answer 1

您的代码未加载页面$url=‘http://alumni.nd.edu’

在follow_link之前添加以下内容：

$m->get($url);
$m->follow_link(url => "/s/1210/start.aspx?sid=1210&gid=1&pgid=3&cid=40");

follow_link调用搜索由WWW::Mechanize加载的文档，如果没有它，它将什么也找不到。