LWP::SIMPLE與代理伺服器(Proxy Server)的問題

[TOM]

最近利用了LWP::SIMPLE模块写了一些 Perl程序，可以连接远程计算机 (remote computer)收集数据，例如这个 NCBI BLAST 程序。但是它们在新的办工室里未能正常工作，为什么呢？查看后，发觉原来是在办工室的网络里，是用了代理服务器 (proxy server)。为了解决这个问题，我用了一个很简单的方法，就是为 LWP::SIMPLE设定一个 useragent变量 (variable)，以下Perl程序的语法：
use LWP::Simple qw($ua get);
$ua->proxy('http','http://your_proxy_server_domain : port_no');
加了这两行后，$ua变量就已被设定。在之后的程序行里，当LWP::SIMPLE模块的有关子程序被呼叫的话，计算机就会通过代理服务器连接到远程计算机，传回结果，例如：
my $result = get ('http://remote_computer_domain/remote_page');
除了以上方法，你亦可以透过预设”http_proxy”这个环境变量(environment variable)来达到相同目的。


譯者/作者：andrew