Comment puis-je gérer les serveurs proxy avec LWP :: Simple?

Question

Comment puis-je ajouter un support proxy à ce script?

use LWP::Simple; 

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

Answer 1

Accédez à l'objet LWP :: UserAgent sous-jacent et définissez le proxy. LWP :: exportations simples la variable $ua de sorte que vous pouvez faire:

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