perl - 如何使用 LWP::Simple 处理代理服务器？

Question

如何向此脚本添加代理支持？

use LWP::Simple;

$url = "http://stackoverflow.com";
$word = "how to ask";
$content = get $url;
if($content =~ m/$word/)
{
print "Found $word";
}

Answer 1

访问底层 LWP::UserAgent 对象并设置代理。 LWP::Simple 导出 $ua 变量，因此您可以这样做:

使用 LWP::Simple qw( $ua get );
$ua->proxy('http', 'http://myproxy.example.com');
我的 $content = get( 'http://www.example.com/' );