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/' );