Discussion :

[mkrzemin]

Bonjour à toutes et à tous,

Voici mon souci, probablement du à ma faible maîtrise du langage PERL:

Quand je tape le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
 
if (unpack('I', $activated) == 1)
{
	$var_mod = \%modules;
}
else
{
	$var_mod = \%modules_NA;
}

Ma variable $var_mod contient bien l'adresse du hash %modules comme attendu.

En revanche, si je tape la commande suivante:

Code :

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

1
2
 
(unpack('I', $activated) == 1) ? $var_mod = \%modules : $var_mod = \%modules_NA;

Ma variable $var_mod prend l'adresse du hash %modules_NA.

Quelqu'un aurait-il une explication à celà ?

Merci par avance,
Mickaël

[stoyak]

Voici la bonne écriture

Code :

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

my $var_mod = (unpack('I', $activated) == 1)  ?  \%modules :  \%modules_NA;

[mkrzemin]

Salut Stoyak,

Merci pour la réponse. Pourrais-tu juste m'expliquer la différence qu'il y a entre la notation que j'ai utilisée et la tienne? Que se passe-t-il exactement dans mon cas ?

Encore merci,
Mickaël

[Philou67430]

Perl exécute l'équivalent de ceci (note la position des parenthèses que j'ai ajoutées) :

Code :

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

((unpack('I', $activated) == 1) ? $var_mod = \%modules : $var_mod) = \%modules_NA;