运行Perl脚本通过DOS命令提示符调用webpages?

时间:2012-06-15 09:29:11

标签: windows perl windows-xp dos

我的工作场所使用XP,我试图在其上运行以下脚本

use strict;
use warnings;

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

$mech->get( 'http://google.com' );

$mech->submit_form(
    form_number => 0,
    fields      => {
        q       => 'led zeppelin',
    }
);

print $mech->content;

但是,当我尝试通过DOS运行脚本时,我总是收到一条错误消息,指出无法加载页面,因为我的计算机由于超时而无法连接到google.com:80。

据我所知,这不是互联网问题,因为我的浏览器似乎运行良好。我想知道的是,是否有任何其他权限或参数要设置,以便可以加载该网站?如果没有,问题是什么?

1 个答案:

答案 0 :(得分:4)

也许只能通过工作场所的代理服务器访问互联网,这是一种常见做法。

$mech->proxy(['http', 'ftp'], 'http://proxy.example.com:8000/');

请参阅How do I use WWW::Mechanize through a proxy server? in WWW::Mechanize::FAQ