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.008 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.
