Foro - Perl en Español

Buenas, hace unos días que empecé a mirar el Perl para unas aplicaciones que necesito y hasta ahora creo que conseguí lo que necesitaba, pero tengo un problema que destroza todo lo que hice; a ver si consigo explicarlo: este es un fragmento de un programa que hice que navega a través de proxies, una especie de navegador custom.



Funciona perfectamente, excepto por un detalle: cuando uno de los proxies en lista muere, o es extremadamente lento, el programa sigue esperando por el ilimitadamente. Lo que me gustaría saber es cómo hacer para que el programa espere por ejemplo 5 segundos por cada proxy y después cambie al siguiente independientemente de si obtiene respuesta o no. Probé a hacer una burrada que se me ocurrió: una variable tal que $tiempo = time() + 20; y meterle un while, pero no cuajo del todo y todo lo que leí por ahí va de timeout, pero en mi caso no funciona. Muchas gracias por cualquier ayuda que me ofrezcáis

A nadie se le ocurre nada?

¿Has activado el modo debug para saber en qué parte queda? Dices que el timeout no te funciona. Sería interesante saber por qué. ¿En qué sistema operativo estás?

Una posibilidad de arreglo sería usar la función alarm().

Muchas gracias por la contestación La verdad es que es casualidad pero ahora mismo estaba probando con la función alarm, pero tengo un problema: este fragmento incluye la parte donde rota los proxies, el for, y si utilizo el alarm() tal que así:



Efectivamente espera los 6 segundos y después se detiene, pero se detiene literalmente, quiero decir detiene el script, luego hice algo así:



Pero al hacer esto (utilizar un goto) el for se pierde y comienza de nuevo, cogiendo una vez mas el proxy de la primera línea en vez de cambiar al siguiente... realmente lo que necesito es que funcione el $ua->timeout(6); pero no alcanzo a comprender por qué no funciona. Estoy en Windows SP 2. Gracias de veras, por la ayuda porque mientras siga atascado con esto no puedo continuar con lo demás :S

Fíjate por favor en el ejemplo que aparece en la página de información de alarm();

* Primero redefinen $SIG{ALRM} a una subrutina, que es realmente la que hace morir el programa, pero tu ahí podrías simplemente poner un print para sacar un texto, y nada más. El programa seguiría.
* Luego, definen el tiempo de timeout de alarm.
* Después, la instrucción o instrucciones problemáticas que deben resolverse en ese tiempo.
* Y finalmente, un alarm(0), para desactivar el timeout.

El ponerlo dentro de un eval() es sólo necesario si quieres controlar la llamada a una función del sistema.

Yo activaría el modo debug/trace del $ua, de todas formas, para tener más pistas de qué es lo que está pasando. Es muy raro que el timeout no funcione.

Sonara estúpido pero... ¿cómo activo el modo debug? :$ por cierto, el problema ya es seguro, está en $res = $ua->request($req);. En el momento en que llega ahí y hace el request, si el proxy tarda en contestarle, ¡a veces no funciona ni el alarm()! Sencillamente es como si se bloquease hasta obtener respuesta del proxy al que quiere conectarse para posteriormente acceder a ese formulario.

Me parece que se puede realizar todo el trabajo con sólo el objeto LWP::UserAgent...

No entiendo lo que quieres decir, ya estoy usando LWP::UserAgent O_o

Quiero decir que 'quizás' te puedes ahorrar el crear un objeto HTTP::Request. No lo sé, pero mirando la documentación, sí que parece que se puede hacer todo con el mismo objeto.

Y si alarm() no vuelve... oye... ¿no estarás en Windows?

jaja siiiiii te lo dije en un post anterior Windows SP2, casi prefiero que me digas que ni el timeout ni el alarm funcionan por eso, por que ya no se que hacer, pero tambien espero que haya solucion :S me parece increible que me resulte tan dificil, si no imposible tan solo hacer que rote de proxies mas rapido xd y mas cuando se podria hacer con un simple $ua->timeout(5); :S