请教: perl通过代理服务器获取网页内容

aboy11

我用下面的代码在家里可以获取网页内容:

1. #!/usr/bin/perl -w
   
2. use LWP::Simple;
   
3. my $url='www.baidu.com';
   
4. my $index = get( "$url" ) || die "get the page failed!\n";

复制代码

但是单位里是通过代理上外网的,所以程序运行失败..
请教大家 perl程序里面如何使用代理连接外网?

xunxin

cpan 里面 LWP 的文档中：

http_proxy

应该设置这个环境变量就可以了。

如果你用的是linux 用curl就行了

machine

my $browser=LWP::UserAgent->new;

my $new_browser='Mozilla/5.0';

$browser->agent($new_browser);



$browser->proxy('http','your ip');