Foro - Perl en Español

Perdón pero estoy teniendo problemas, los cuales te paso a comentar.

• El script me escribe 19 líneas en el log, donde siempre me pide "username".
• Si hago telnet con la aplicación a tercera conexión el output es totalmente diferente, ya que me ingresó directamente a la aplicación
• ¿Hay forma de enumerar los intentos en el log? Así sé cuál cambio

Saludos y gracias.

Como tienes abierto el log, en $fh, lo único que tienes que hacer es un print a ese gestor de archivo, y se escribirá en el archivo lo que quieras.

Por ejemplo,

Hice el cambio y obtengo:



Digamos que parece que se conecta una vez y luego repite "Username".

Al script le agregué tu nuevo código en la línea 18:



Al ejecutar el script obtengo en pantalla:

seguridadenmimail escribiste:Al script le agregué tu nuevo código en la línea 18:

Ya veo que funciona...

seguridadenmimail escribiste:Al ejecutar el script obtengo en pantalla:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using bash Syntax Highlighting

1. C:\Users\test\Desktop\ver>perl script.pl
2. Host 192.168.3.110: timed-out during login process
3. Can't return outside a subroutine at script.pl line 20.
4.  

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Se refiere a la presencia del return(). Debería estar dentro de una subrutina, pero no está.

Cambia "return warn" por "die".

No sé por qué sale continuamente el Username. Según la documentación (¿la has leído?) cuando llamas a login() queda esperando por la llegada de una cadena que coincida con /login[: ]*$/i o /username[: ]*$/i, lo cual es cierto.

¿No sale nada en el output_log()?

Quizás no quede más remedio que activar el dump_log()...

Acabo de descubrir otro módulo interesante en CPAN: Net::Telnet::Wrapper, que permite hacer conexiones simultáneas y otras cosillas interesantes:

explorer, quería consultarte cómo puedo guardar el output a un archivo de la conexión, ya que solo necesito esa parte. Como no llego a conectarme porque las credenciales son incorrectas no sé cómo guardar la información.

En mi mensaje 2012-04-04 03:08 @172 anterior, verás que hay un ejemplo de envío del input_log() a un gestor de archivo $fh, abierto unas líneas más arriba. Lo mismo puedes hacer con el output_log().

Como no puedo lograrlo estoy intentando directamente ejecutar el comando "telnet" del sistema operativo.

Script:


Pero sigue sin funcionar, ya que no me guarda la salida del router, sino que guarda un "0" por cada "timeout expired!"

Saludos.

system() devuelve el estado del resultado de la ejecución, no la salida de la ejecución.

Cambia system por qx.

¿Cómo tendría que hacer para ejecutar los 5 telnet al mismo tiempo, y no esperar a que termine 1 para continuar?

Saludos.