[bcn-pm] parametres d'un script
José Luis Pérez Diez
jluisaescomposlinux.org
Div Jul 20 04:25:02 PDT 2007
On Thursday 19 July 2007 16:03, Arnau Bria wrote:
> Però el meu dubte és que si faig:
> -o out.txt -e err.txt jo només vull assignar:
> $out=out.txt
> $err=err.txt
>
> i fer un if per cada opció per fer l'assignament no ho veig molt clar...
>
> Preguto, quina és la millor opció? com ho farieu vosaltres?
Jo prefereixo els descriptors estandard i faria servir 2>err.txt >out.txt.
Si les opcions i els parametres es disparan Getopt::Long
test.pl
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my ($err,$out) = qw(err.txt out.txt);
Getopt::Long::Configure ("bundling");
GetOptions(
'error|e=s'=>\$err,
'output|o=s'=>\$out,
'=s'=>sub{shift;print "@_\n";});
print "(\$err=$err,\$out=$out)\n"
__END__
$./test.pl -e horror.txt -o salido.txt - perro=verde - 'casa loca'
perro=verde
casa loca
($err=horror.txt,$out=salido.txt)
Més informació de la llista de correu Barcelona-pm