Discussion :

[mat21]

Salut,

ce n'est jamais glorieux de l'avouer mais j'ai un peu de mal avec la syntaxe de cette ligne:
my $reg = ( $a{Reg} ) ? $a{Reg} : $self->method;

quelq'un pourrait il me dire ce que signifie le ? puis le :
ou bien un lien vers une faq, j'ai pas trouvé...

merci d'avance.

[2Eurocents]

my $reg = ( $a{Reg} ) ? $a{Reg} : $self->method;
quelq'un pourrait il me dire ce que signifie le ? puis le :

C'est comme en C ( Perl est écrit en C - on choisit ses amis, mais rarement sa famille )

$a = ( $condition ) ? $b : $c ;
équivaut à :
Si $condition est vraie, $a prend $b, sinon $a prend $c.

C'est un raccourci commode mais peu lisible, qui évite des if avec les blocs d'accolades associés.

[mat21]

( Perl est écrit en C - on choisit ses amis, mais rarement sa famille Wink )

oui je sais mais je ne connais pas C malheureusement.

merci bien pour l'explication. c'est un raccourci que j'avais du mal a appréhender.

donc

Code :

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

1
2
3
4
5
6
7
8
 
if ($a{Reg}) {
my $reg = $a{Reg};
}
 
else {
my $reg = $self->method; 
}

bye

[2Eurocents]

Code :

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

1
2
3
4
5
6
if ($a{Reg}) {
my $reg = $a{Reg};
}
else {
my $reg = $self->method; 
}

Surtout pas, malheureux !!!!!!!

En procédant ainsi, tu déclares une nouvelle variable $reg dans les blocs de l'alternative, qui masque celle de l'extérieur ...
Et ça ne fait pas ce que tu veux ...
Et c'est une erreur vachement dure à trouver ...

Ceci est mieux :

Code :

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

1
2
3
4
5
if ($a{Reg}) {
  $reg = $a{Reg};
} else {
  $reg = $self->method; 
}

[mat21]

oui c vrai
Je savais que j'allais me faire reprendre sur ce coup la lol

Code :

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

1
2
3
4
5
6
7
 
my  $reg;
if ($a{Reg}) {
  $reg = $a{Reg};
} else {
  $reg = $self->method;
}

comme ça c correct.