Foro - Perl en Español

Buenas, quería probar ahora a hacer que mi script de copias de seguridad funcione digamos, de forma típica, y compatible con la consola de Linux.

Es decir, que por ejemplo, genero un return válido que se pueda ver con un pipe u otro comando. O sea, sé lo del 0 es bien y 1 mal, pero lo demás...

Otra cosa es recibir pipes en tu mismo programa, o tratar con las opciones de los atributos en plan Linux, o sea: -l, -v, etc.

Si quieres interactuar con otros programas, lo normal es usar las tuberías, intercambiando la información a través de la entrada y la salida estándar.

Y para el procesado de las opciones pasadas al programa, aunque siempre es recomendable usar alguno de los módulos de gestión de parámetros, con la opción '-s' de perl puedes hacer alguna pequeña interpretación de los mismos.

Voy a ponerte un ejemplo para estos dos casos.

Supongamos un fichero de texto

Y el siguiente programa

Destacamos:
* la opción '-s' en la primera fila, para indicar que procese los argumentos que empiecen por '-'
* declaramos una variable global $x
* hacemos un bucle por la entrada estándar '<>', es decir, si no indicamos nada, el operador diamante se refiere a la entrada que el usuario haya elegido
* según el valor de $x, el programa hará una cosa distinta con cada línea leída por la entrada estándar

Ejemplo de uso.

Como ves, las salidas son distintas según esté presente la opción '-x', y admitimos, tanto el procesado de un fichero indicado como argumento, como un flujo de líneas entubadas desde otro comando.

Más información en perldoc perlrun.

Gracias, ¿me podrías indicar cuáles son los módulos de gestión de parámetros?

Cualquiera de la familia Getopt.

Gracias, era lo que buscaba.

Ahora estaba pensando en cómo puedo hacer para que un script tenga un valor de retorno válido para Linux u otras cosas.

Ya que mi script copia una serie de entradas con X archivos, devolvería la información del total de archivos y entradas copiadas.



¿Pero esto sería válido para lo que he dicho?

Un programa suele dar varias salidas.

Está la salida de estado (que se almacenará en la variable de estado $?) que indicará si el resultado de la operación ha sido correcto o no. Los valores normales son 0: todo ha ido bien. <>0: algo ha ido mal. Ejemplo:


Otras salidas son las salidas estándar: la salida estándar y la salida estándar de error.

No está normalizado cómo ha de ser esas salidas, pero hay una pista: si la salida de tu programa es susceptible de ser entubada a otro programa, esa salida deberá ser lo más simple y clara posible, para que el programa que la reciba pueda interpretarla.

La salida que propones es muy clara: dos líneas de texto, con líneas que usan tabuladores.

Vale. Pero el problema ahora es: ¿cómo puedo decirle desde Perl a Linux que guarde en la salida de estado, estándar o de error?

Desde el programa Perl, si quieres enviar algo a la salida estándar, lo envías con un print() a secas, o hacia STDOUT:


Si quieres enviar algo hacia la salida de error estándar, debes hacerlo hacia STDERR:


Y si quieres mandar al sistema el resultado de la operación, debes pasar ese valor como argumento a la función exit():


También puedes usar die() para los casos en los que algo vaya mal:


La variable $! almacena el texto del error devuelto por el sistema, así que se lo mostramos al usuario.

Más información en perldoc -f exit y perldoc -f die.

Es posible que este proyecto te inspire: Perl Power Tools

Vale, pues veo que tengo que cambiar algunas cosas.

Creo que voy a usar una función que añada errores (a un array) porque hasta ahora usaba el die() simple, pero claro, eso parte la ejecución por la mitad sin que pueda hacer nada.

Habrá el modo grave que acabará la ejecución del programa en ese instante haciendo el exit 1 y un print() al STDERR con todos los posibles errores. El modo no grave simplemente lo añadirá a la lista.

Y al final del script llamaré a una función para pasar el return() válido.

P.D.: ahora que me fijo, tengo otra duda: si mi script imprime otros mensajes usando print(), ¿cómo los diferencio del valor real de retorno del script?



Este es un ejemplo de que ha ido bien. Pero antes de eso mi script ha impreso un montón de líneas a la consola... ¿también las recibirá en un pipe o lo que fuera?