perl - 无法使用 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 加载的文档，没有它，它不会找到任何东西。