perl - que - servidor proxy gratis

¿Cómo puedo manejar servidores proxy con LWP:: Simple?

Question

¿Cómo puedo agregar soporte proxy a este script?

use LWP::Simple;

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

Answer 1

Acceda al objeto LWP :: UserAgent subyacente y configure el proxy. LWP :: Simple exporta la variable $ua para que pueda hacer eso:

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