1

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 で実行されています。

4

1 に答える 1

0

あなたのコードはページをロードしていません $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 によってロードされたドキュメントを検索します。これがなければ、何も見つかりません。

于 2013-03-13T13:15:29.277 に答える