Discussion :

[donny]

salut,

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

Code :

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

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

>verif.pl -a 2 -b 12

et il m 'affiche bien

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

[rcageot]

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

[donny]

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

[MarneusCalgarXP]

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:

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