我在perl中编写了以下脚本,以使用代理连接到网站。当然代理地址可能在此时无法正常运行,但条件是代理地址没有问题,代码工作正常。
我想知道如何将其扩展到有cookie的网站,我必须在其中提供登录信息。也就是说,在代码中,我想使用:$ mech-> submit_form()。我的问题不是如何编写cookie和登录的$ mech东西(我已成功完成),而是如何通过代理地址执行此操作。我问,部分是因为我甚至不确定如何在网络浏览器中执行此操作。
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use WWW::Mechanize;
use WWW::Mechanize::Link;
use LWP::UserAgent;
use Data::Dumper;
BEGIN { $| = 1 }
$ENV{'HTTP_PROXY'} = 'http://66.35.68.145:7808';
$ENV{'HTTPS_PROXY'} = 'http://66.35.68.145:7808';
my $mech = WWW::Mechanize->new();
my $response = $mech->get("http://whatismyipaddress.com/");
print Dumper($response->decoded_content);