Re: [PerlChina] LWP::UserAgnet->get(https://...) not work through proxy

You should try HTTP::ProxyPAC if you want proxy auto configuration:

use strict;

use LWP::UserAgent;

use Data::Dumper;

use HTTP::ProxyPAC;

my $ua=LWP::UserAgent->new();

my $pacFile = 'http://corppac.myclient.com/accelerated_pac_base.pac';

my $pac = HTTP::ProxyPAC->new($pacFile);

my $res = $pac->find_proxy($url);

$ua->proxy(['https', 'http'] => $res->proxy) if $res->proxy;

my $response = $ua->get('https://login.yahoo.com/config/login_verify2?&.src=ym');

print Dumper $response;

Make sure you have IO::Socket::SSL or Net::SSL installed for HTTPS support, IO::Socket::SSL is recommended.

2011/5/17 tiger <tigerpeng2001@gmail.com>

Could anyone help on the following test script (run on strawberry
perl)?

It works (with $ua->proxy... commented out) when it is not behind
proxy, but fails to access https pagethrough proxy (with '_msg' =>
'Bad Request'.). It is okay to access http pages. No problem for
accessing https pages with MSIE and Firfox through proxy.

Thanks,


use strict;
use LWP::UserAgent;
use Data::Dumper;

my $ua=LWP::UserAgent->new();
$ua->proxy(['https', 'http'] => 'http://corppac.myclient.com/
accelerated_pac_base.pac');
my $response = $ua->get('https://login.yahoo.com/config/login_verify2?
&.src=ym');
#my $response = $ua->get('http://www.yahoo.com');
print Dumper $response;

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。