Hola de nuevo
Me gustaría saber cuál es la forma, la mejor forma, la forma más usada o la que usan ustedes para validar que una variable pasada por parámetros al ejecutar el script exista y tenga valor.
Me explico.
Al ejecutar lo siguiente:
#perl myscript.pl --input=file.txt --data=hola --new_data=chao
Dentro del script admito como válido que las variables input, data y new_data existan y tengan valor. Sé que las variables están en $ARGV[]. Como dije antes ¿ cuál es la mejor forma de validar esto ?.
Saludos.
-
- Publicidad
Validar variables pasadas por parámetro
9 mensajes
• Página 1 de 1
Validar variables pasadas por parámetro
por xchidalgox » 2007-04-06 11:02 @501
- xchidalgox
- Perlero nuevo
- Mensajes: 23
- Registrado: 2007-04-02 11:23 @516
Publicidad
por explorer » 2007-04-06 11:27 @519
Con un módulo como Getopt::Long puedes leer los argumentos dentro de tu programa.
Para el tema de saber si han sido declaradas o no, mira el ejemplo que hay en esta sección, y siguientes:
http://search.cpan.org/~jv/Getopt-Long- ... le_options
Para el tema de saber si han sido declaradas o no, mira el ejemplo que hay en esta sección, y siguientes:
http://search.cpan.org/~jv/Getopt-Long- ... le_options
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por xchidalgox » 2007-04-06 17:07 @754
Que estoy haciendo mal ??
El codigo
Asi ejecuto el script
#perl myscript --input=file.txt --pos=1,2 6,7
Error in option spec: "pos=s{,}"
#
Me aparece este error. Error in option spec: "pos=s{,}"
La variable pos puede recibir n posiciones.
Saludos.
El codigo
Using perl Syntax Highlighting
#!/usr/bin/perl
use Getopt::Long;
my $input = '';
my @pos = '';
$result = GetOptions ("input=s" => \$input,
"pos=s{,}" => \@pos,
);
die "Use:\n\t --input=input.txt\n\t --pos=x,y x1,y1 .. xn,yn \n\n" if $input eq '' or @pos eq '';
print @pos;
use Getopt::Long;
my $input = '';
my @pos = '';
$result = GetOptions ("input=s" => \$input,
"pos=s{,}" => \@pos,
);
die "Use:\n\t --input=input.txt\n\t --pos=x,y x1,y1 .. xn,yn \n\n" if $input eq '' or @pos eq '';
print @pos;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Asi ejecuto el script
#perl myscript --input=file.txt --pos=1,2 6,7
Error in option spec: "pos=s{,}"
#
Me aparece este error. Error in option spec: "pos=s{,}"
La variable pos puede recibir n posiciones.
Saludos.
- xchidalgox
- Perlero nuevo
- Mensajes: 23
- Registrado: 2007-04-02 11:23 @516
por explorer » 2007-04-06 18:11 @799
Pues... no lo sé...
Con Getopt::Long versión 2.36 y mi Perl versión 5.8.8, la siguiente versión de tu programa sí que me funciona bien:
Observa la inicialización y la comparación de la variable @pos. Hay que recordar que es un array, no un escalar.
Con Getopt::Long versión 2.36 y mi Perl versión 5.8.8, la siguiente versión de tu programa sí que me funciona bien:
Using perl Syntax Highlighting
#!/usr/bin/perl -l
use Getopt::Long;
use strict;
use warnings;
my $input = '';
my @pos = ();
my $result = GetOptions(
"input=s" => \$input,
"pos=s{,}" => \@pos,
);
die "Use:\n\t--input=input.txt\n\t--pos=x,y x1,y1 .. xn,yn \n\n"
if $input eq '' or @pos == 0;
print "@pos";
use Getopt::Long;
use strict;
use warnings;
my $input = '';
my @pos = ();
my $result = GetOptions(
"input=s" => \$input,
"pos=s{,}" => \@pos,
);
die "Use:\n\t--input=input.txt\n\t--pos=x,y x1,y1 .. xn,yn \n\n"
if $input eq '' or @pos == 0;
print "@pos";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Observa la inicialización y la comparación de la variable @pos. Hay que recordar que es un array, no un escalar.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por creating021 » 2007-04-06 18:43 @821
Intenta esto:
A mi me funciona con los dos.
Algo más, al usar eso bien puede ejecutarlo como:
Using perl Syntax Highlighting
#!/usr/bin/perl
use Getopt::Long;
my $input;
my @pos;
my $result = GetOptions ("input=s" => \$input,
"pos=s\@" => \@pos,
);
die "$0: Use:\n\t --input=input.txt\n\t --pos=x,y x1,y1 .. xn,yn \n\n" until @pos and $input;
print @pos;
use Getopt::Long;
my $input;
my @pos;
my $result = GetOptions ("input=s" => \$input,
"pos=s\@" => \@pos,
);
die "$0: Use:\n\t --input=input.txt\n\t --pos=x,y x1,y1 .. xn,yn \n\n" until @pos and $input;
print @pos;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
A mi me funciona con los dos.
Algo más, al usar eso bien puede ejecutarlo como:
Expect the worst, is it the least you can do?
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
por xchidalgox » 2007-04-06 19:35 @858
No se como ver la versión de Getopt::Long, ¿ cómo se hace ?
Estaba usando perl 5.8.4, me cambié a Perl 5.8.8 y me funciona con pos=s{,}.
Gracias.
Estaba usando perl 5.8.4, me cambié a Perl 5.8.8 y me funciona con pos=s{,}.
Gracias.
- xchidalgox
- Perlero nuevo
- Mensajes: 23
- Registrado: 2007-04-02 11:23 @516
-
creating021 - Perlero frecuente
- Mensajes: 595
- Registrado: 2006-02-23 16:17 @720
- Ubicación: Frente al monitor
por xchidalgox » 2007-04-06 21:26 @935
Con la versión de Perl 5.8.4 y Getopt::Long 2.34 no se puede utilizar pos=s{,}.
Saludos.
Saludos.
- xchidalgox
- Perlero nuevo
- Mensajes: 23
- Registrado: 2007-04-02 11:23 @516
9 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 9 invitados