Foro - Perl en Español

Gracias explorer pero no lo consigo. He probado de varias formas después de mirar el ejemplo ese:
esto no funciona.

esto tampoco funciona.

tampoco.

y tampoco, así que como veis, de esta forma no consigo hacer que un comando que necesite confirmación de si o no o simplemente de darle al enter que es mi caso, pues no me funciona.

Ayuda por favor.

Cuidado... si usas Match, estás pasando una expresión regular... así que los caracteres como '.', '[', ']', '*', '+' y '?' hay que escaparlos con un '\' delante.

Esta tarde buscaré un rato para hacer pruebas.

A ver... he leído Net::Telnet (cmd, prompt y waitfor) y el cmd de Net::Appliance::Session.

Deberías probar con algo así:



Es decir:
* A cmd() le estamos pasando el String que va a ejecutar y lo que esperamos recibir.
* Match, según el manual, ha de ser una referencia a un array de patrones de búsqueda. No vale tu primer intento, sólo un patrón entrecomillado. Fíjate que lo he metido entre corchetes para crear ese array anónimo. Ahí podrías meter más patrones.
* También se le puede poner un Timeout.
* En el Match, no es necesario poner todo lo que esperamos. Yo probaría con lo que realmente es interesante: 'running-config\]\?'.

Gracias,
He probado como me has dicho y también de esta forma :


pero no me ejecuta el comando... si comento la linea de Match si me lo ejecuta pero obviamente se me vuelve a quedar en [running-config] esperando que le de al Enter...

Un saludo.

¡Ya esta hecho, Gracias , ha quedado así!



Así ya funciona, Muchas gracias.

¡Un saludo!

Acabo de leer en Net::Telnet que su cmd no sirve para los prompt que esperan una entrada, como es tu caso, y que es mejor usar la combinación print(), waitfor(). La parte del print() es lo que haces con String, mientras que la del waitfor() es la del Match.

Lo que no entiendo es porque ha fallado el primer intento.

hola explorer. Corrí el script que publicó aramallal pero se queda en el password. Lo raro es que he hecho de todo para lograr capturar el error pero no me muestra nada. ¿Alguna idea de lo que podría ser?.
De antemano gracias por tu respuesta.

Bienvenido a los foros de Perl en Español.

Si se queda en el password, quizás es porque el módulo no es capaz de darse cuenta de que está esperando esa entrada. No sé si me hablas del mismo aparato que el de aramallal. Quizás tengas que tocar el login del módulo para agregarle una expresión regular para cazar el momento en que llega el password. ¿Qué módulo estás usando?

Estimado Explorer ,

Realicé un script de prueba para conectarme mediante SSH2 de un server a otro y ejecutar comandos en el segundo server y eso me anduvo perfectamente.

Necesitaría puntualmente saber si es factible de realizar algo que necesito.

En un server_A tengo el script principal para realizar el backups de varios routers de Cisco mediante Telnet. Tendría que conectarme por SSH2 a un segundo Server_B y del server_B conectarme por SSH2 a un Server_C (sería un 2º salto de SSH2 recursivo).

El server_C es desde donde se alcanza por telnet a dichos routers ya que están filtrando el telnet mediante una lista de acceso ( ACL ) para al resto del mundo por cuestiones de seguridad.

El Server_A ejecuta el script localmente pero los comandos se los tendrían que pasar a las sesiones que se van iniciando en el Server_c mediante el Telnet a los equipos.

¿Esto es factible de realizarse en Perl?

Saludos y gracias ,
Telco

Yo no veo por qué no... todo consiste en hacer tu propio protocolo de intercambio de información entre los servidores. Y en cada servidor, disponer de los permisos necesarios para tener funcionando un programa servidor y cliente para recibir y mandar órdenes o ficheros.