问个perl Mechanize问题# Programming - 葵花宝典
f*e
1 楼
【 以下文字转载自 BuildingWeb 讨论区 】
发信人: furthermore (找啊找啊找), 信区: BuildingWeb
标 题: 问个perl Mechanize问题
发信站: BBS 未名空间站 (Sat Jun 14 09:57:44 2008), 转信
正自学，在学自动访问网页部分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下
发信人: furthermore (找啊找啊找), 信区: BuildingWeb
标 题: 问个perl Mechanize问题
发信站: BBS 未名空间站 (Sat Jun 14 09:57:44 2008), 转信
正自学，在学自动访问网页部分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下