Perl одна строка, если оператор

Question

У меня есть заявление

$set eq "Y" ? $set = "N" : $set = "Y"; 

Но независимо от того, что он всегда устанавливает для "N"

# Toggle setting 
if ($set eq "Y") 
{ 
    $set = "N"; 
} 
else 
{ 
    $set = "Y"; 
} 

Почему не один лайнер, кажется, работает?

Answer 1

Благодаря правилам старшинства, Perl не разбор вашего заявления, как вы думаете :

$ perl -MO=Deparse,-p -e '$set eq "Y" ? $set = "N" : $set = "Y"' 
((($set eq 'Y') ? ($set = 'N') : $set) = 'Y'); 
-e syntax OK 

Итак, как вы видите, в обоих случаях, конечный результат является $set скаляр, который затем получает значение Y.

Вы можете исправить это с помощью нескольких скобок:

$set eq "Y" ? $set = "N" : ($set = "Y") 

Но зачем повторять назначение:

$set = $set eq 'Y' ? 'N' : 'Y'; 

Answer 2

$set = ($set eq "Y") ? "N" : "Y"; 

должен работать

Answer 3

оператора приоритет. То, что вы написали, что эквивалентно

($set eq "Y" ? $set = "N" : $set) = "Y"; 

Если вы настаиваете на написание такого лаконичный кода, это больше смысла:

$set = ($set eq "Y" ? "N" : "Y"); 

Answer 4

Речь идет о приоритете; давайте делать намерения с скобкой, а затем пусть Perl удалить их снова:

perl -MO=Deparse -e '($set eq "Y") ? ($set = "N") : ($set = "Y"); print $set' 
$set eq 'Y' ? $set = 'N' : ($set = 'Y'); 
print $set; 
-e syntax OK 

Который является, таким образом, parenthesing необходимо сделать, как вы хотели.

Answer 5

Если вы предпочитаете не использовать «C» в стиле условные операторы, вы можете сделать то же самое с 2-мя линиями:

my $set = "Y"; #Set the scope and default value 
$set = "N" if ($set eq "Y"); 

Я лично рекомендовал «C» стиль, описанный выше других ... это легко демонстрирует две опции, которые может быть переменной.

Однако метод, который я показываю, отлично подходит для решения одного условного результата.