Discussion :

[sone47]

Bonjour,
j'ai un petit probleme sur un script perl qui doit récuperer des arguments passés en ligne de commande.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $number = shift or usage() and die ;

usage est une fonction qui affiche la maniere d'utiliser le script si mauvaise saisi.
Le probleme est que si je rentre la valeur 0 en parametre il ne me la recupere pas et me renvoi a la fonction usage.
Comment faire alors pour recupérer cette valeur?
merci

[Schmorgluck]

Une expression d'affectation a pour valeur celle de la valeur affectée. Par conséquent, $number = shift a pour valeur 0 dans le cas qui te pose problème. Or, 0 est une des valeur que Perl considère comme valant false (en "contexte" booléen). Donc oui, forcément, quand tu entres 0 il execute ce qui suit le "or". Tu procèdes de façon inadéquate. Il vaut mieux vérifier s'il y a des arguments, puis en contrôler le contenu.

[Woufeil]

Je rajouterais que dans ton cas, il faudrait plutôt utiliser defined qu'un booléen (en réalité, ton script est équivalent à usage() and die unless (my $number = shift) )

[Jedai]

A partir de Perl 5.10 (qui sortira cette année), tu auras un nouveau connecteur "logique" err qui teste si sa partie gauche est définie, et sinon renvoie sa partie droite, tu pourras alors écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $number = shift err usage() and die ;

Mais pour l'instant, tu dois écrire plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my $number = shift;
usage() and die unless defined $number;

NB : Si les arguments de ton scripts sont complexes, il pourrait être plus raisonnable d'utiliser l'un des modules Getopt::* qui gèrent ce genre de problème correctement.

--
Jedaï