windows - 运行 Perl 脚本通过 DOS 命令提示符调用网页？

Question

我的工作场所使用 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。

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

Answer 1

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

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

请参阅如何通过代理服务器使用 WWW::Mechanize？在WWW::Mechanize::FAQ.