Foro - Perl en Español

por **gerkrt** » 2011-01-27 18:20 @806

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

3474

4387543985 JF

34975 XS

048434 jj

2343

5345 JTAColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y el siguiente programa

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -s
 
our $x;
 
while (<>) {
 
    if ($x) {
        chomp;
        print qq("$_"\n);
    }
    else {
        print $_;
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

explorer@casa:~/Documentos/Desarrollo> ./kk.pl kk.txt

3474

4387543985 JF

34975 XS

048434 jj

2343

5345 JTA

explorer@casa:~/Documentos/Desarrollo> ./kk.pl -x kk.txt

"3474"

"4387543985 JF"

"34975 XS"

"048434 jj"

"2343"

"5345 JTA"

explorer@casa:~/Documentos/Desarrollo> cat kk.txt | ./kk.pl

3474

4387543985 JF

34975 XS

048434 jj

2343

5345 JTA

explorer@casa:~/Documentos/Desarrollo> cat kk.txt | ./kk.pl -x

"3474"

"4387543985 JF"

"34975 XS"

"048434 jj"

"2343"

"5345 JTA"Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

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.

por **gerkrt** » 2011-01-28 11:29 @520

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

por **explorer** » 2011-01-28 11:48 @533

Cualquiera de la familia Getopt.

por **gerkrt** » 2011-02-08 18:09 @798

Gracias, era lo que buscaba.

por **gerkrt** » 2011-02-16 06:12 @300

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.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

return"Entradas copiadas:\t$cont\nTotal archivos:\t$total_arxius";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

por **explorer** » 2011-02-16 06:47 @324

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

explorer@aprosi21:~/Documents/Desarrollo> ls -l
total 100
drwxr-xr-x 2 explorer users  4096 nov 11  2009 cfg
-rwxr-xr-x 1 explorer users   823 nov  9  2009 code_19658.pl
-rwxr-xr-x 1 explorer users   823 nov  9  2009 code_19658.pl~
-rw-r--r-- 1 explorer users  8048 abr 14  2010 code_21685_1.txt
-rwxr-xr-x 1 explorer users   746 abr 14  2010 code_21685.pl
-rwxr-xr-x 1 explorer users   543 abr 14  2010 code_21685.pl~
-rwxr-xr-x 1 explorer users  1487 nov  8 20:15 code_23444.pl
-rwxr-xr-x 1 explorer users  1545 nov  8 20:01 code_23444.pl~
explorer@aprosi21:~/Documents/Desarrollo> echo $?
0
explorer@aprosi21:~/Documents/Desarrollo> ls -l /osifosd
ls: no se puede acceder a /osifosd: No existe el fichero o el directorio
explorer@aprosi21:~/Documents/Desarrollo> echo $?
2
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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.

por **gerkrt** » 2011-02-16 06:53 @328

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?

por **explorer** » 2011-02-16 07:48 @366

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"Ficheros copiados: $n\n";
printSTDOUT"Ficheros copiados: $n\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

printSTDERR"ERROR en la copia del fichero $f: $!\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($hubo_error){
exit1;
}
else{
exit0;
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$hubo_erroranddie"ERROR: No pude copiar el fichero $f: $!\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

por **gerkrt** » 2011-02-16 09:34 @440

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?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Devuelve resumen final
printSTDOUT"Entradas copiadas:\t$cont\nTotal archivos:\t$total_arxius";
# Sale pasando estado 
exit0;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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?

Foro - Perl en Español

Emular comandos Linux con Perl

Emular comandos Linux con Perl

Publicidad

Re: Emular comandos Linux con Perl

Re: Emular comandos Linux con Perl

Re: Emular comandos Linux con Perl

Re: Emular comandos Linux con Perl

Re: Emular comandos Linux con Perl

Re: Emular comandos Linux con Perl

Re: Emular comandos Linux con Perl

Re: Emular comandos Linux con Perl

Re: Emular comandos Linux con Perl

¿Quién está conectado?