[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