Foro - Perl en Español

por **otronovato** » 2013-09-16 05:49 @284

He estado tanteando Getopt::Long para darle un poco más de robustez a mis programas. Las posibilidades que ofrece para controlar los parámetros pasados al programa son exactamente lo que buscaba. He hecho este código para probarlo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl                                                                                                                             
 
use v5.12;
use strict;
use warnings;
use MIME::Base64;
use Getopt::Long;
 
#Programa de codificación y decodificación en base64. De acuerdo con la información del módulo #MIME::Base64 codificaremos en múltiplos de 57 bytes: "This ensures that the base64 lines
#line up and that you do not end up with padding in the middle. 57
#bytes of data fills one complete base64 line (76 == 57*4/3)"                                                                               
 
sub enc{
 
    open my $fhi, "<", $_[0] or die "$!\n";
    binmode $fhi;
    open my $fho, ">", $_[1] or die "$!\n";
    while(read($fhi, my $buffer, 30*57)){
        print $fho &encode_base64($buffer);
    }
    close $fho;
    close $fhi;
    return 1;
}
 
sub dec{
 
    open my $fhi, "<", $_[0] or die "$!\n";
    binmode $fhi;
    open my $fho, ">", $_[1] or die "$!\n";
    while(read($fhi, my $buffer, 30*57)){
        print $fho &decode_base64($buffer);
    }
    close $fho;
    close $fhi;
    return 1;
}
 
my ($entrada, $salida, $func);#Parámetros del programa.                                                                                     
 
die "Uso: $0 --entrada <fichero> --salida <fichero> --op <cod|decod>\n" if (@ARGV != 6 or !GetOptions('entrada=s' => \$entrada, 'salida=s' \
=> \$salida, 'op=s' => \$func));
 
if($func eq 'cod'){
 
    my $op = &enc($entrada, $salida);
    say "Fichero $entrada procesado";
    exit 1;
}
 
elsif($func eq 'dec'){
 
    my $op = &dec($entrada, $salida);
    say "Fichero $entrada procesado";
    exit 1;
}
else{
 
    say "Opciones --op no reconocidas. Valores 'cod' o 'dec'";
    exit 1;
 
}
 
 
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Tras buscar algún manual, (porque perldoc -m Getopt::Long me muestra el código, pero no su documentación), he visto que si quiero utilizar una opción como la de 'op' en mi programa que sólo puede tomar dos valores, ('cod' or 'dec'), puedo hacer dos cosas: usar una opción 'op=i' y usarla como 'flag' para, una vez comprobada, ejecutar la función codificar o la de decodificación, o bien, la opción que he tomado 'op=s' y comprobar los valores de la cadena para tomar la decisión de qué función ejecutar.

Me queda la duda de si Getopt::Long no tendrá habilitada una forma de 'parsear' por sí mismo un rango de valores posibles para cada opción.

Entiendo también que en la condición

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (@ARGV != 6 or !GetOptions('entrada=s' => \$entrada, 'salida=s' \
=> \$salida, 'op=s' => \$func));
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

comprobar el número de parámetros es redundante. ¿Correcto?.

Un saludo

Options with values
For options that take values it must be specified whether the option value is required or not, and what kind of value the option expects.
Three kinds of values are supported: integer numbers, floating point numbers, and strings.
If the option value is required, Getopt::Long will take the command line argument that follows the option and assign this to the option variable. If, however, the option value is specified as optional, this will only be done if that value does not look like a valid command line option itself.
my $tag = ''; # option variable with default value
GetOptions ('tag=s' => \$tag);
In the option specification, the option name is followed by an equals sign = and the letter s. The equals sign indicates that this option requires a value. The letter s indicates that this value is an arbitrary string. Other possible value types are i for integer values, and f for floating point values. Using a colon : instead of the equals sign indicates that the option value is optional. In this case, if no suitable value is supplied, string valued options get an empty string '' assigned, while numeric options are set to 0 .

Entiendo entonces que debo capturar y tratar la entrada en mi propio código, fuera del módulo. ¿Correcto?

Un saludo

por **explorer** » 2013-09-16 10:37 @484

Por favor, fíjate en mi respuesta, y verás que no aparece '-m'.

No he manejado nada este módulo, pero según el manual, se espera el tipo de dato por cada argumento. No he visto nada referente a lo de comprobar rangos de valores. Pero si no lo hace este módulo, casi seguro que lo puede hacer otro de la familia Getopt::

Y, sí: si el módulo no lo hace, deberás hacerlo en tu código.

por **otronovato** » 2013-09-16 12:52 @578

¡Gracias!

Hasta ahora siempre había encontrado la documentación del módulo bajo el código al invocar 'perldoc -m', por éso creía que era la forma correcta de hacerlo.

Perdóname por haberte hecho perder el tiempo.

Un saludo.

Foro - Perl en Español

Getopt::Long

Getopt::Long

Publicidad

Re: Getopt::Long

Re: Getopt::Long

Re: Getopt::Long

Re: Getopt::Long

¿Quién está conectado?