Foro - Perl en Español

Saludos perleros.

Tengo inconvenientes con mi script. Básicamente quiero ejecutar unos comandos cuya salida se va enlazando a medida que se ejecutan. Este es el código:



He intentado todo con el comando que no da salida, y solo funciona cuando lo dejo fuera de la sentencia if y siendo el primer comando que ejecuta.

Esta es la salida:

De ahí en adelante no funciona. Quien pueda darme unas observaciones le estaría bastante agradecido.


Gracias.

Yo no veo nada raro. Quiero decir que no sé qué diferencia podría haber de ejecutar esa línea dentro o fuera del if().

Es claro que el if() se ejecuta porque en la salida aparece Iface, Line y Salida 2. Entonces, esa línea sí que se ejecuta.

Yo probaría a sacar a pantalla el contenido de @out, nada más ejecutarla. Por ejemplo:

print '[', join('|', @out), ']', "\n";
print 'Número: ', scalar(@out), "\n";

Si dice que no sale nada, es que el comando falló. Lo que no sé es que puede tener de diferente de estar ahí a estar fuera del if(), salvo que le afecten llamadas previas a cmd().

Hola, explorer. Gracias por tus observaciones.

Lo mismo digo yo: no entiendo en qué se diferencia al estar dentro del if() o estar fuera, acabo de ejecutar la prueba y ahora esta es la salida:


¿Qué más podría hacer? :S Con esa salida no devuelve nada. Es como si no se ejecutara el comando

El número 1 indique que sí ha habido una respuesta. Pero no la vemos (no hay nada entre los corchetes), así que sospecho que se trata de un 'undef'.

Para confirmarlo, habría que usar el Data::Dumper de @out.

Suponiendo que, en efecto, es un 'undef', supongo que ha ocurrido algún error en la ejecución del cmd().

Otra pregunta. Cuando dices "dejo fuera de la sentencia if()", ¿a qué te refieres? ¿Cómo queda el código?

Hola, explorer.

Sí, al parecer está vacío. Funciona si lo pongo en este orden:

Pues no veo nada raro. Salvo que el interfaz lo pones de forma directa en la línea 7, en lugar de capturarlo con la expresión regular de la línea 28.

O sea, que el orden que funciona es este:

mientras que el que no funciona es este:

Tú deberías saber en qué orden deben ir las acciones en el aparato Cisco...

Otro detalle que es diferente: en el código que funciona tienes puesto un timeout de 35, mientras que en el que no funciona está puesto a 5. ¿Podría ser esto?

No sé... lo único que se me ocurre probar es ver si $ifaceCisco contiene realmente lo que queremos. Modificaría el print() de la línea 31 por esto:

De esa manera nos aseguramos que no estamos pillando algún carácter en blanco o extraño.

Hola, explorer,

En orden respondo a las inquietudes, jejeje.

Si, el orden es exactamente el que especificaste:

Este orden es el que no funciona y en el que se deberían ejecutar los comandos sobre el equipo Cisco.

En el que funciona puse directamente el valor ya que si lo ejecuto de inicio no sé cuál es el valor de $ifaceCisco.

en el código que funciona tienes puesto un timeout de 35, mientras que en el que no funciona está puesto a 5. ¿Podría ser esto?

Es una prueba que hice mientras recibía respuesta en el foro, he aumentado, disminuido, etc., pero no funciona.


En cuanto al cambio del print() este es el resultado que obtuve:

Pues entonces, no sé qué será.

Lo único raro que veo... es que a la cadena "terminal length 0" le falta un "\n" al final.