Comportement de l'opérateur conditionnel Odd Perl

Question

Je travaille en Perl et j'ai rencontré un résultat impair en utilisant l'opérateur conditionnel.

Le code en question:

($foo eq "blah") ? @x = @somearray : @y = ("another","array"); 

Essayer de compiler ce code entraîne l'erreur "Assignment to both a list and a scalar at XXX line YY, near ');'". En essayant de localiser la source de l'erreur, j'ai écrit ceci en utilisant deux manières différentes de représenter un tableau en Perl et ils reviennent tous avec la même erreur. Maintenant, au début, je pensais que c'était juste une erreur évidente stupide avec les instructions d'affectation, mais juste pour satisfaire ma curiosité, je réécris la déclaration d'une manière plus détaillée:

if($foo eq "blah") { 
    @x = @somearray; 
} else { 
    @y = ("another","array"); 
} 

Cette version du code compilé parfaitement bien.

Existe-t-il une fine distinction entre le fonctionnement de l'opérateur conditionnel et une instruction if-else de base qui me manque ici? J'ai toujours compris que l'opérateur conditionnel n'était qu'une version abrégée de la deuxième déclaration. S'il n'y a pas de différence fonctionnelle entre les deux, pourquoi Perl s'opposerait-il à la première déclaration, mais pas à la seconde?

Answer 1

 
$ perl -MO=Deparse -e'($foo eq "blah") ? @x = @somearray : @y = ("another","array");' 
Assignment to both a list and a scalar at -e line 1, near ");" 
-e had compilation errors. 
$foo eq 'blah' ? (@x = @somearray) : @y = ('another', 'array'); 
$ perl -MO=Deparse -e'($foo eq "blah") ? @x = @somearray : (@y = ("another","array"));' 
$foo eq 'blah' ? (@x = @somearray) : (@y = ('another', 'array')); 
-e syntax OK 

Notez les parenthèses: ?: lie plus serré que =.

Answer 2

La documentation perlop indique clairement que vous devez mettre des parenthèses autour des opérateurs d'affectation.

Ne pas utiliser de parenthèses est une tige pour votre propre dos si vous ne comprenez pas la priorité de l'opérateur. Arrêtez d'essayer d'être trop intelligent pour votre propre bien!

Answer 3

L'opérateur conditionnel Perl est censé être

variable $ = (expression)? affectation réelle: affectation erronée; Ce que vous faites ressemble à ce qu'il devrait fonctionner et est fondamentalement le même que l'instruction if/else. Mais est juste assez différent de la norme pour avoir des problèmes.

Answer 4

Ce serait un bon endroit pour utiliser les opérateurs de priorité inférieure 'et' et 'ou'.

$foo eq 'blah' and @x = @somearray or @y = ('another', 'array'); 

si vous êtes sûr que @x = @somearray sera toujours vrai. ou vous pouvez les retourner.

Answer 5

Ceci est un peu orthogonale à votre question, mais il porte indiquant: opérateur conditionnel de Perl se propage le contexte du premier argument vers le bas dans les arguments deuxième ou troisième, donc cela vous donne des résultats non désirés:

$x = ($foo eq "blah") ? $somevalue : ("another","array"); 

Si le conditionnel était faux, $x recevrait à la place une seule valeur entière 2 (le nombre d'éléments dans le troisième argument).

Si d'autre part vous tentiez d'effectuer une mission purement scalaire:

# this is wrong, for the same order-of-operations reasons as with arrays 
($foo eq "blah") ? $x = $somevalue : $x = "another value"; 

Ce serait une façon raisonnable (et le meilleur) pour résoudre la situation:

$x = ($foo eq "blah") ? $somevalue : "another value"; 

De même , vous pouvez optimiser votre code d'origine de cette façon:

@x = ($foo eq "blah") ? @somearray : ("another","array");