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

aboy11

1^# aboy11 发表于 2008-12-02 10:06

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

[Copy to clipboard] [ - ]

CODE:

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

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

xunxin

2^# xunxin 发表于 2008-12-20 19:10

cpan 里面 LWP 的文档中：

http_proxy

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

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

machine

3^# machine 发表于 2008-12-20 20:11

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

my $new_browser='Mozilla/5.0';

$browser->agent($new_browser);

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