Foro - Perl en Español

por **later** » 2011-01-19 06:05 @295

Sintáxis: [ Descargar ] [ Ocultar ]

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.003 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í:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

lo que quiero obtener

lo que quiero obtener

lo que quiero obtenerColoreado 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.

Yo veo que no estás leyendo de consola, sino que estás haciendo peticiones HTTP.

Y en el bucle, falta por decidir qué debe ocurrir si la petición falla. Según el código actual, si la expresión regular no encuentra el patrón, repite de nuevo todo el bucle while(), y vuelta a empezar.

En mi opinión, deberías: 1) poner un sleep() entre peticiones HTTP, salvo que no te importe cargar al servidor, 2) poner un bucle interno más, por ejemplo un for (0 ..2) { } para que intente varias veces obtener la página. En cuanto lo consiga, haces un last; y sale del bucle. Luego haces la expresión regular. Si está el patrón, lo procesas. Si no está, pues tomas otra decisión, pero que no haga repetir el bucle pues sabes que la petición HTTP ha fallado.

Foro - Perl en Español

Timeout

Timeout

Publicidad

Re: Timeout

¿Quién está conectado?