Как я могу обращаться с прокси-серверами с 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/');