Using perl Syntax Highlighting
$Ninicial = 1;
$Nfinal = 4365;
while ($Ninicial <= $Nfinal)
{
my $final = "http://..../index.php?id=".$Ninicial;
my $cnx = LWP::UserAgent->new() or die;
my $go = $cnx->get($final);
if ($go->content =~ m/fecha(.*?)fecha/ms)
{
print $Ninicial.": $1\n";
$Ninicial++;
}
}
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
Hola amigos... Tengo este pequeño
script que va muy bien, excepto... cuando se me colapsa y se me queda parado.
Me explico: yo voy recibiendo por consola algo parecido así:
Using text Syntax Highlighting
1: lo que quiero obtener
2: lo que quiero obtener
3: lo que quiero obtener
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Y cuando lleva un rato... al final se acaba quedando pillado en alguno y ya el
script no sigue avanzando... Entonces supongo que necesito un
timeout a lo mejor de 10 segundos, y si pasa ese tiempo que se repita la operación fallada hasta que la complete y siga avanzando...
Un saludo y gracias a toda la comunidad.