Perl5 =（等于）运算符优先级

Question

 $a,$b,$c = 1,2,3;
 print "$a, $b, $c\n";

那么

 , , 1

= (等于) 是否比元组构造具有更高的优先级 - 这样做吗？

 $a,$b,($c=1),2,3;

Answer 1

是的。 优先级表位于 perlop。赋值运算符为19级，逗号为20级。一般来说，Perl的运算符与相应的C运算符具有相同的优先级（对于那些具有相应C运算符的运算符）。

如果您的意思是 ($a,$b,$c) = (1,2,3); 您必须使用括号。

Answer 2

您使用的逗号运算符（在标量上下文中）不适用于元组构造，它用于评估多个表达式并返回最后一个表达式。

Perl 根据上下文做不同的事情，它根据是否期望标量值、列表、什么都没有来决定做什么，...参见 perldoc perldata 关于Context 的介绍。

因此，如果您这样做：

perl -e '$a = (1 and 4,2,0); print"$a\n"'

您将得到 0，因为 4,2,0 在标量上下文中计算，其行为类似于 C 的逗号运算符，计算逗号之间的表达式并返回最后一项的结果。

如果您强制 4,2,0 在列表上下文中进行计算：

perl -e '$a = (1 and @a=(4,2,0)); print"$a\n"'

您将得到 3，因为分配给数组会强制列表上下文（附加括号用于解决提到的优先级问题 cjm），标量上下文中列表的值（通过成为标量上下文中 and 的 RHS 强制）是它拥有的元素数量（逻辑 and 返回最后一个表达式评估，而不是像其他编程语言中的布尔值）。

因此，正如 cjm 所说，您需要做的是：

($a,$b,$c) = (1,2,3);

处理优先级并强制列表上下文。

请注意两者之间的区别：

$ perl -e '$a,$b,$c = (7,6,8); print "$a $b $c\n"'
8

逗号运算符在标量上下文中计算，并返回 8。

$ perl -e '($a,$b,$c) = (7,6,8); print "$a $b $c\n"'
7 6 8

逗号运算符在列表上下文中计算，并返回一个列表。

$ perl -e '$a,$b,$c = () = (7,6,8); print "$a $b $c\n"'
3

逗号运算符在列表上下文中计算，返回一个列表，然后对 $c 的赋值强制标量上下文，返回列表中的元素数量。