Perl 一行 if 语句

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';