Foro - Perl en Español

Hola a todos:

Estoy usando la versión de Perl v5.10.0 en Ubuntu 8

La pregunta que quiero realizar es bastante específica y hace referencia a cómo puedo ejecutar un comando de Shell/Bash desde un programa en Perl y además redirigir sus salidas.

Un ejemplo de lo que me sucede:

· Yo ejecuto este comando desde el terminal "ls &> out.txt" y la salida aparece en un fichero de nombre out.txt.

· Yo ejecuto este mismo comando desde el programa en Perl y me imprime por pantalla y no imprime en el 'log'.


Más info:

Desde el programa de Perl
Si redirijo la salida estándar Ej: ls > out.txt funciona
Si redirijo la salida error Ej: ls 2> out.txt funciona
Si redirijo las dos Ej: ls &> out.txt no funciona

También he probado a llamar a un script de Shell/Bash desde el programa de Perl, pero el funcionamiento es similar.

Bienvenido a los foros de Perl en Español, David_Guillen.

Para ejecutar un comando del entorno, sobre un bash, puedes hacerlo con las funciones system(), exec(), qx() y ``.

Depende de lo que quieras hacer:
· exec(): ejecuta un comando y nunca regresa
· system(): lo mismo que exec(), pero luego continúa con el programa Perl
· qx() y ``: se ejecuta un comando bajo sh, y el resultado (la salida estándar) de la ejecución es lo que devuelve esta función.

En la documentación verás ejemplos de cómo capturar tanto la salida estándar como la salida estándar de error, aunque lo recibirás mezclado.

Si quieres recibir la salida estándar y la de error por separado, hay soluciones como la función tap() del módulo Sysadm::Install, que usa el truco de guardar la salida estándar de error en un fichero temporal.

Y otro tema importante es lo que el propio programa Perl genera. En ese caso, la redirección del shell funciona exactamente igual que con cualquier otro comando del sistema.

Sería interesante ver el código que estás usando.