Foro - Perl en Español

por **erv-Z** » 2009-10-23 21:05 @920

Buenas a todos, tengo un problema; es que quiero hacer diferentes peticiones y para ahorrar las líneas y el trabajo, mejor pensé crear una función que haga las peticiones web y usarla en cada petición. Un ejemplo malo podría ser.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;
use HTTP::Request;
 
sub google-es{
    my $ua = new LWP::UserAgent;
    $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");
 
    my $busqueda = new HTTP::Request GET =>"http://www.google.es";
    my $resultado = $ua->request($busqueda);
    $ua->timeout(7) || die "Conecction faield";
    my $result = $resultado->content();
}
sub google-ar{
    my $ua = new LWP::UserAgent;
    $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");
 
    my $busqueda1 = new HTTP::Request GET =>"http://www.google.com.ar";
    my $resultado1 = $ua->request($busqueda1);
    $ua->timeout(7) || die "Conecction faield";
    my $result1 = $resultado1->content();
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Pero lo que quiero es crear solo una función (subrutina) que haga las peticiones web sin tener que escribir lo mismo a cada rato...

Saludos.

Foro - Perl en Español

Crear una función que haga peticiones web

Crear una función que haga peticiones web

Publicidad

Re: Crear una funcion que haga peticiones web

Re: Crear una función que haga peticiones web

¿Quién está conectado?