Операция условного оператора Odd Perl

Question

Я работаю над Perl, и я столкнулся с нечетным результатом с помощью условного оператора.

Код в вопросе:

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

Попытка скомпилировать этот код приводит к ошибке "Assignment to both a list and a scalar at XXX line YY, near ');'". Пытаясь определить источник ошибки, я написал это, используя пару различных способов представления массива в Perl, и все они возвращаются с той же ошибкой. Теперь я сначала подумал, что это какая-то немая очевидная ошибка с операторами присваивания, но только, чтобы удовлетворить мое любопытство, я переписал заявление в более подробном виде:

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

Этой версия коды компилируется прекрасно.

Есть ли какое-то тонкое различие между тем, как работает условный оператор и выполняется базовое оператор if-else, которое я здесь отсутствует? Я всегда понимал условный оператор как краткую версию второго оператора. Если между ними нет функциональной разницы, почему объект Perl должен быть первым, но не вторым?

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 

Примечание круглые скобки: ?: связывает сильнее, чем =.

Answer 2

В документации perlop четко указано, что вы должны поместить круглые скобки вокруг операторов присваивания.

Несоблюдение круглых скобок является стержнем для вашей спины, если вы не понимаете приоритет оператора. Прекратите пытаться быть слишком умным для своего же блага!

Answer 3

Условный оператор Perl, предназначается, чтобы быть

переменная $ = (выражение)? истинное назначение: ложное присвоение;

Что вы делаете, похоже, что он должен работать и в основном такой же, как и оператор if/else. Но он просто отличается от нормы, чтобы иметь проблемы.

Answer 4

Это было бы хорошим местом для использования операторов более низкого приоритета «и» и «или».

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

при условии, что вы уверены, что @x = @somearray всегда будет правдой. или вы можете перевернуть их.

Answer 5

Это несколько ортогональное к вашему вопросу, но она несет указывая: условный оператор в Perl распространяется контекст из первого аргумента вниз, вторых или третьих аргументы, так что это даст вам непредсказуемые результаты:

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

Если условное значение было ложным, $x вместо этого было бы присвоено единственное целочисленное значение 2 (количество элементов в третьем аргументе).

Если с другой стороны, вы пытались выполнить чисто скалярной назначение:

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

Это было бы разумным (и лучший) способ разрешения ситуации:

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

Аналогично , вы можете оптимизировать исходный код таким образом:

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