Perl 三元条件运算符内部赋值问题

Question

我的程序中的这段 Perl 代码给出了错误的结果。

$condition ? $a = 2 : $a = 3 ;
print $a;

不管$condition的值是多少，输出总是3，为什么呢？

Answer 1

Perl 文档对此进行了解释。

由于 Perl 运算符优先级，该语句被解析为

($condition ? $a= 2 : $a ) = 3 ;

因为 ?: 运算符产生可分配的结果，所以 3 被分配给条件的结果。

当 $condition 为 true 时，这意味着 ($a=2)=3 给出 $a=3

当 $condition 为 false 时，这意味着 ($a)=3 给出 $a=3

正确的写法是

$a = ( $condition ? 2 : 3 );
print $a;

We got bitten by this在工作中，所以我在这里发帖希望其他人会发现它有用。

Answer 2

一旦你意识到你可能遇到了优先级问题，就有一个技巧可以弄清楚 Perl 认为你的意思：

perl -MO=Deparse,-p -e '$condition ? $a= 2 : $a= 3 ; print $a;'

在你的情况下，这会告诉你：

(($condition ? ($a = 2) : $a) = 3);
print($a);
-e syntax OK

......在这一点上你应该说“哦，这解释了它”！

Answer 3

只是为了扩展前面的答案...如果出于某种原因，赋值需要成为条件的一部分，您需要这样写：

$condition ? ($a=2) : ($a=3);

如果您根据条件分配给不同的变量，这将很有用。

$condition ? ($a=2) : ($b=3);

如果您选择变量，但无论如何分配相同的内容，您甚至可以这样做：

($condition ? $a : $b) = 3;

Answer 4

由于 Perl 运算符优先级，该语句被解析为：

($condition ? $a = 2 : $a ) = 3 ;

因为 ?: 运算符产生可赋值的结果，所以 3 被赋值给条件的结果。

当 $condition 为 true 时，这意味着 $a=2=3 给出 $a=3

当 $condition 为 false 时，这意味着 $a=3 给出 $a=3

正确的写法是

$a = $condition ? 2 : 3;

一般来说，你应该真正摆脱使用条件语句进行赋值的习惯，就像在最初的例子中一样——正是这种习惯导致 Perl 获得了只写的声誉。

一个好的经验法则是，条件语句仅适用于简单值，而不适用于具有副作用的表达式。 当你或其他人需要八个月后阅读这段代码时，你会更喜欢它这样读吗？

$x < 3 ? foo($x) : bar($y);

或者像这样？

if ($x < 3) {
  $foo($x);
} else {
  $bar($y);
}

Answer 5

对上面 Tithium 答案的一个建议：

如果您想为同一个变量分配不同的值，这可能会更好（抄写方式）：

$a = ($condition) ? 2：3；