Estoy haciendo una función para cargar varias páginas al mismo tiempo.
use threads;
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
print toma("http://www.google.com");
sub toma {
my $hilo = threads->new(\&tomarapido($_);
$hilo->join();
sub tomarapido {
return $nave->get($_)->content;
}
}
La primera pregunta de muchas es cómo arreglo la línea esta:
my $hilo = threads->new(\&tomarapido($_);
¿ Alguien me podría explicar cómo lo hago ?
P.D. : a simple ...