probleme avec getopt

salut,

J'essai d'utilise Getopt::Long et j'ai un petit soucis
voial mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!/usr/bin/perl   use strict; use Getopt::Long;     my $a1; my $b2;       my $result = GetOptions (   "a1=i" => \$a1, # numeric "b2=s" => \$b2, # string );   print "resultat ".$result."\n";   print "Value for a1 = ".$a1."\n"; print "Value for b2 = ".$b2;

---

quand je l'execute je fait cela

Citation:

---

>verif.pl -a 2 -b 12

---

et il m 'affiche bien

Citation:

---

resultat 1
Value for a1 = 2
Value for b2 = 12

---

mais pourquoi resultat est egal à 1.
en theorie sous unix le code de retour pour une reussite est 0

comment cela se fait il????


merci

pour moi true=1 et false=0 mais peut être me trompe-je !

mais pourtant sous unix
quand une commande s'execute bien il te renvoit 0
et si elle echoue il renvoi 1

Attention à ne pas confondre, ça n'a rien à voir... Le 0 et le 1 comme tu dis sous UNIX sont des codes d'erreur de programmes (en général 0 = pas d'erreur, 1 = erreur, mais on peut très bien utiliser d'autres valeurs...)

En perl, la convention est qu'une fonction qui ne retourne pas de valeur particulière renvoie "vrai" en cas de succès et "faux" en cas d'échec. Et notemment dans la documentation du module (ici : http://search.cpan.org/~jv/Getopt-Lo...ues_and_Errors ), on a le descriptif suivant:

Citation:

---

GetOptions returns true to indicate success. It returns false when the function detected one or more errors during option parsing

---

Et comme le type "booleen" n'existe pas vraiment en Perl, un booleen est un entier dont la valeur est interprétée comme suit:

• 0 = faux
• <autre valeur> = vrai

J'espère avoir pu t'éclairer un peu ;)