Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 

GET por detrás de un proxy

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Intermedio
Mensaje Mie May 31, 2006 3:20 pm
Lierly Ortega Groero
Perlero Nuevo
Perlero Nuevo
Registrado: 31 May 2006
Mensajes: 7
GET por detrás de un proxy Responder citando

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:
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
Mensaje Mie May 31, 2006 3:31 pm
explorer
Moderador
Moderador
Registrado: 24 Jul 2005
Mensajes: 4084
Ubicación: Valladolid, España
Responder citando

En la página de manual de lwpcook tienes un ejemplo que te puede valer.
Código:
use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp'] => 'http://username:password@proxy.myorg.com');

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

$res = $ua->request($req);
print $res->decoded_content if $res->is_success;
Publicar nuevo tema   Responder al tema    Foros de discusión -> Intermedio Todas las horas son GMT - 6 Horas
Página 1 de 1



Powered by phpBB © 2001, 2005 phpBB Group