Foro - Perl en Español

Hola amigos, gusto en saludarlos. Tengo un problema con un script ya que luego de ingresar a un equipo y autenticarme de manera correcta me lleva a un menú en el cual debo enviarle una letra, 'q', por ejemplo, seguido de un enter para entrar a otro menú y así sucesivamente. El problema es que al enviarle la letra, de nuevo 'q' por ejemplo, no entra al menú que necesito, les dejo el script en espera de su valiosa ayuda.




Este es el menú del equipo al que ingreso

Pues por las pistas, no estoy seguro... salvo que veo que un comando lo envías con "\n", y el otro no.

¿No sale nada en el log?

Date cuenta de una cosa: por defecto, Net::Telnet pone el valor de output_record_separator a "\n". Eso quiere decir que a todas las cadenas que envías con cmd(), el agrega un "\n".

Entonces... en el primer cmd()... estás enviando, en realidad, dos "\n".

Hola, explorer.

Gracias por tu pronta respuesta, en realidad con el primer cmd() lo puse así para verificar si eso podía ayudar en algo, pero he intentado sin ponerle el "\n" y es el mismo resultado.

Con respecto al log, en efecto me muestra el acceso con el usuario y contraseña, se ve que envía la letra 'q' pero no llega al menú siguiente.

Si me puedes decir cómo sacar un log más limpio que el del Dump_Log para podértelo mostrar.

De antemano, gracias por la ayuda.

¿A qué máquina quieres conectarte? Me refiero sistema operativo, o marca y modelo del aparato.

Hay algunos módulos en CPAN específicos para ciertos aparatos (sobre todo, CISCO).

Cuando dices que espera una letra, ¿es que solo espera una letra? ¿O es que además hay que pulsar el 'enter'? Y fíjate que además de $comm1, estás enviando un espacio en blanco. Para algunas máquinas, ese espacio extra no influye, pero para otros, sí.

Puedes recortar el log, y me lo mandas por un mensaje privado (menú de arriba: mensajes privados).

Es una aplicación creada por un proveedor de servicios que está sobre un SO Unix.

En realidad hay que poner la letra y luego darle enter.

En el segundo waitfor() estás esperando por un ']'. ¿Es correcto?

Quizás una solución sea no esperar... es decir, manda la 'q' en un cmd(), y luego mandas la siguiente letra, inmediatamente.

Hasta no ver más detalles de la salido o el log, poco más se puede decir...

Traté de enviarte el log, el mensaje me dice que fue enviado correctamente pero al revisar está en la bandeja de salida, así que lo pongo acá (en resumen)

Nada, tampoco me dice nada...

¿El log aparece así, con tan pocas columnas?

Un volcado hexadecimal podría ayudar a ver qué significan los caracteres extraños, pero no creo que aporten mucho...

Estoy viendo que se para en

(M/R/S/X)

y en esa línea no veo ningún carácter ']', que marcas en el waitfor().

Se para en ND (M/R/S/X): debido a que allí es donde se debe enviar el carácter 'q' y luego 'enter'.

Luego que se envía 'q' y 'enter', debe aparecer


Por eso es que espero por ']' luego de enviar el $comm1.


Solo como referencia ya lo envié como $comm1\n quitando le el waitfor (/]/); y da el mismo problema.

Si tienes que enviar la 'q' seguido de un 'enter', no es necesario que le pongas el "\n" porque ya se lo añade el cmd().

De todas maneras, dices que te conectas a un sistema UNIX, pero, ¿desde qué sistema te conectas?

Algunas veces ocurren estos errores porque la gente se conecta desde un Windows, y los caracteres de fin de línea del 'enter' no coinciden con los que espera el sistema UNIX.