• Publicidad

Acelerar la rotación de proxies

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Notapor Norther » 2007-07-25 16:47 @741

Jo, ¿qué pasa? ¿que por usar Windows ya no recibo ayuda? :P

Por cierto llevo todo el dia y más mirando por internet y por lo visto muchísima gente tiene mi problema, ni los timeout ni los alert les funcionan; si lográis darme una solución seguramente seréis los primeros en encontrarla y deberíais publicarla xD
Norther
Perlero nuevo
Perlero nuevo
 
Mensajes: 117
Registrado: 2007-07-24 13:47 @616
Ubicación: Asturias

Publicidad

Notapor kidd » 2007-07-25 17:33 @773

Si estás usando ActiveState con Windows, entonces no te va a funcionar la función alarm(), pues es una de las varias funciones que parecen no correr con el ActiveState:
http://aspn.activestate.com/ASPN/docs/A ... nfaq5.html
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor Norther » 2007-07-25 17:37 @775

¿No hay ninguna forma de hacer funcionar timeout() <--- esta es la que realmente vendría PERFECTO, o alarm()? o ¿alguna alternativa? :S
Norther
Perlero nuevo
Perlero nuevo
 
Mensajes: 117
Registrado: 2007-07-24 13:47 @616
Ubicación: Asturias

Notapor explorer » 2007-07-25 18:30 @812

Internamente, LWP usa select() para hacer el timeout... no se me ocurre otra cosa... salvo que dejes de usar ese sistema operativo. Yo ya lo hice hace años. Soy mucho más feliz. 8)
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor Norther » 2007-07-25 19:01 @834

Jajaja, no me veo con ánimos de cambiar de SO. Seguiré buscando por ahí a ver si encuentro alguna solución. De todas formas, muchas gracias por vuestro tiempo :)
Norther
Perlero nuevo
Perlero nuevo
 
Mensajes: 117
Registrado: 2007-07-24 13:47 @616
Ubicación: Asturias

Notapor explorer » 2007-07-25 19:46 @865

JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor Norther » 2007-07-26 06:13 @300

El segundo enlace vendría a hacer lo mismo que alarm para Windows, pero el primero parece que me puede servir, aunque está algo lejos de mi alcance dado mi limitado conocimiento del lenguaje :D De todas formas voy a intentar comprenderlo y aplicarlo a mi caso. Si hago algún avance ya lo pongo aquí para quienes tengan el mismo problema. Muchas gracias por los links ;)
Norther
Perlero nuevo
Perlero nuevo
 
Mensajes: 117
Registrado: 2007-07-24 13:47 @616
Ubicación: Asturias

Notapor Norther » 2007-07-26 08:45 @406

¡Ops! Se me olvidó preguntar una duda. ¿Cómo puedo hacer para buscar en la respuesta ($res) en el código que puse antes alguna palabra para eliminar fake responses; no sé si me explico, algo como:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
if( HAS GANADO in $res ) {
    print "Esta es una respuesta verdadera";
} else {
    print "Falso positivo"
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


porque a veces llega a su destino y a veces no, pero usando solo

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
if ($res->is_success) {
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


A veces me da falsos positivos.
Norther
Perlero nuevo
Perlero nuevo
 
Mensajes: 117
Registrado: 2007-07-24 13:47 @616
Ubicación: Asturias

Notapor explorer » 2007-07-26 09:11 @424

Puedes mirar el $res->content, que es el contenido de la página devuelta en la respuesta.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor Norther » 2007-07-26 09:27 @435

Al final encontré esto y me sirvió muy bien, pero me gustaría que me ayudaras explicándome una tontería, este es el código:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
if($content =~ m/jazz/i) {
    print "They're talking about jazz today on Fresh Air!\n";
  } else {
    print "Fresh Air is apparently jazzless today.\n";
  }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


¿En la primera línea que quiere decir exactamente el " =~ " y para que sirven " m/ /i "? Muchas gracias.

--------------EDIT-----------------

Olvidalo ya encontre las respuestas:P
Norther
Perlero nuevo
Perlero nuevo
 
Mensajes: 117
Registrado: 2007-07-24 13:47 @616
Ubicación: Asturias

AnteriorSiguiente

Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 8 invitados