Foro - Perl en Español

Hola a todos

Estoy trabajando en Perl y quisiera obtener con la función get el resultado de una url de internet.

Algo así como...

Código: Seleccionar todo

my $ua = LWP::UserAgent->new;
my @headers = (
   'User-Agent' => 'Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)',
   'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png,  */*',
   'Accept-Charset' => 'iso-8859-1,*',
   'Accept-Language' => 'en-US',
   'Referer' => 'http://www.pepepeppepepepeppe',
 );
my $url='http://www.blablabla.com';
 
my $req = $ua->get($url, @headers);

pero resulta que estoy por detrás de un proxy, ¿cómo podría especificarselo???

Gracias por adelantado...

Saludos...

Scorpion

En la página de manual de lwpcook tienes un ejemplo que te puede valer.

Código: Seleccionar todo

use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp'] => 'http://username:[email protected]');

$req = HTTP::Request->new('GET',"http://www.perl.com");

$res = $ua->request($req);
print $res->decoded_content if $res->is_success;