Foro - Perl en Español

Hola a todos.

Tengo problemas con la siguiente sentencia:

¿Podrían ayudarme, por favor? Al ejecutarlo se queda procesando y solo puedo terminar la ejecución del script al hacer Ctrl+C.

Sé que algunas cosas están comentadas. En realidad son los intentos que he realizado para obtener la salida de la ejecución del comando Lo raro es que no obtengo nada. La única forma en que veo en la CLI la salida es usando system("cmd") pero no sé cómo capturarlo.

De antemano les agradezco si me pueden ayudar con otra idea o a mejorar alguna de las plasmadas en el script.


Gracias.

Yo no veo problemas en la parte de Perl, así que sospecho que el programa se para al ejecutar snmpwalk.

Por otra parte, si lo que quieres es ejecutar la salida del comando, no debes usar system(), sino qx():


Otro tema distinto es que snmpwalk se cuelgue... Si es así, hay que tomar otras medidas, como puede ser alarm() para que se mate el proceso arrancado, y que el programa Perl continúe.

Hola, explorer.

Gracias por tu ayuda, sigo teniendo el problema A continuación te dejo la salida usando el script y luego aplicando el comando directamente desde la CLI:


La idea de mi script es desde el servidor ejecutar el comando con la IP de cada uno de los equipos de red, y verificar que si no funciona el SNMP se debe enviar un mensaje de alerta, por esto es tan importante la salida que requiero del comando ejecutado, pero por alguna razón no la está capturando y se queda mucho tiempo como lo que muestra la línea 3 de la salida anterior, y para detenerlo simplemente hago un Ctrl+C y se detiene la ejecución, ya probé esperando hasta 1 hora pero no pasa nada

Gracias

Pues sí que es raro.

En situaciones anteriores, una cosa así me pasaba hasta que me di cuenta de que la salida del comando no estaba saliendo por la salida estándar, sino por la salida estándar de error. Claro: si ejecutas el comando por la terminal, las dos salidas van a parar al mismo sitio (la terminal), y no te das cuenta de que el comando lo está enviado por otro canal.

La forma de darte cuenta de esto es ejecutar

Si prueba.txt no contiene nada (o no toda la salida), entonces es que toda (o parte de) la salida va por la salida estándar de error. En ese caso hay que usar otro módulo, como open2 u open3.

Pero no creo que sea este el caso... en la página de manual de snmpwalk no dice nada de que la salida sea por la salida estándar de error (excepto los log, que sí pueden redireccionarse por ahí).

Puedes probar este código (sacado de perldoc -f alarm):

Con la ayuda de alarm(), creamos un tiempo límite de ejecución. Si se llega a ese tiempo, se ejecuta el $SIG{ALRM}, que contiene un die(), que es capturado por el eval{}, y podemos seguir con el resto del programa.

Otra cosa... en CPAN hay unos cuántos módulos para gestionar SNMP... ¿no les quieres dar una oportunidad?

La primera prueba funcionó dejando el registro de las líneas de respuesta, pero en el segundo caso sucedió lo mismo, solo que esta vez me generó este error:



Intentaré con los módulos de SNMP; lo que sucede es que no los he usado, tendré que estudiarlos primero.

Muchas gracias por tu ayuda, explorer.

Vale, el problema está justo en la ejecución del comando.

Yo haría una prueba quitando la parte " | head -5 ", no sea que esté influyendo.

Segundo, haría una prueba con solo

snmpwalk --version

para estar seguros de que no se trata de un retraso producido por el propio comando y no por los argumentos que le estamos pasando.

Tercero, si no funciona, en el shell ejecutaría un which snmpwalk para averiguar la ruta completa al comando. Por ejemplo, podría estar instalado en /usr/local/bin/. En ese caso, modificamos $cmd con esa ruta:


Si con eso funciona, entonces le ponemos el head...

Prueba, y dinos.

Quitando el head:



Probando con solo snmpwalk --version:


Me muestra en pantalla el resultado pero no lo captura en la variable de salida

Y con la tercera y cuarta opción me genera el error:


Realicé pruebas con la librería Net::SNMP:HostInfo parece que funciona bien, lo único es que no he podido encontrar algún equipo que no esté respondiendo al SNMP para saber cómo se está recibiendo la respuesta.

Relaciono el código usado:



Gracias por la ayuda, explorer, espero que esto le sirva de ayuda a otros perleros .

Me he instalado el paquete snmp y ya sé lo que pasa: que los comandos snmp envían su resultado a la salida estándar de error, que es lo que te comentaba en una de mis primeras respuestas.

Lo que muestras de la salida de snmpwalk --version ha sido la clave: si vemos que sale algo en pantalla, pero Perl no lo ha capturado, es que está saliendo por la salida estándar de error.

Haz una prueba con esta línea, y nos cuentas.

Lo que hace es redirigir la salida estándar de error a la salida estándar normal, por lo que head ya recibe algo.

explorer, realicé la prueba y aun no funciona

Aquí el código usado. Decidí aumentar los 10 segundos a 20 a ver si era por eso, pero pasa igual:



Ese foreach se hace porque los equipos provienen de una consulta a una base de datos. La salida obtenida:

Pues... se me están acabando las ideas.

Mira, en mi equipo, si ejecuto esto desde la línea de comandos, no sale nada
Mejor dicho: sale el mensaje que se espera, pero por la salida de error. El comando wc no recibe nada.

Si pongo la redirección, entonces sí que lo capturo:

Humm... creo que podrías quitar el head porque no creo que te influya en el resto del programa. Menos problemas si lo quitas.

Pero el problema sigue siendo que snmpwalk no regresa, y no sé el motivo.

Bueno, si te funciona el módulo, mejor. Así no tienes que pelearte con las expresiones regulares.