Как я могу обрабатывать прокси-серверы с помощью 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, поэтому вы можете сделать это:

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