正自学,在学自动访问网页部分WWW::Mechanize。
可是写了几句小程序却总出错:
#! /usr/bin/perl -w
use strict;
use constant URL => "http://localhost:8081";
use WWW::Mechanize;
my $browser = WWW::Mechanize->new();
$browser->get(URL);
if($browser->success) {
my $content = $browser->content;
print "Result: '$content'\n";
}
else {
print "failed";
}
我用的perl环境是从activeperl下的for windows xp v5.10.0.1003. 我自己机器
上有apache, 用的端口是8081.
Perl出错信息是:
HTTP::Request version 1.3 required--this is only version 1.28 at C:/Perl/