perl：数组操作的优先级

Question

我在理解 perl 的操作顺序时遇到了一些麻烦。我有以下内容：

>> my $n = 2;
>> my @arr = (1,2,3,4);
>> print $n/scalar @arr * 100;
0.005

但添加括号：

>> my $n = 2;
>> my @arr = (1,2,3,4);
>> print $n/(scalar @arr) * 100;
50

查看order of operations，似乎首先应该发生的是列表操作。在这种情况下，遇到的第一个是scalar @arr，它应该返回4。结果表达式应该是print $n/4 * 100，它将遵循标准的操作顺序并产生50。

但是，我假设正在发生的事情是它首先执行@arr * 100，产生标量值400，然后执行scalar 400，产生400，然后执行$n/400，给出@987654332 @。

如果是后者，那么我的问题是scalar 在操作顺序中的位置。如果发生了其他事情，那么我的问题是，嗯，是什么？

Answer 1

您可以通过B::Deparse 和-p 运行来查看Perl 如何解析代码：

perl -MO=Deparse,-p script.pl

我尝试了 3 种不同的方法：

print $n/scalar @arr * 100;
print $n/(scalar @arr) * 100;
print $n/@arr * 100;

这是输出：

print(($n / scalar((@arr * 100))));                                                                                                         
print((($n / scalar(@arr)) * 100));                                                                                                         
print((($n / @arr) * 100));

* 高于perlop 中优先级表中的“命名一元运算符”（scalar 所属，请查看链接）。

Answer 2

来自 perlop 文档

在没有括号的情况下，列表运算符的优先级如 因为 print、sort 或 chmod 要么非常高要么非常低，具体取决于 无论您是在看左侧还是右侧 操作员。例如，在

   @ary = (1, 3, sort 4, 2);
   print @ary;        # prints 1324

排序右边的逗号在排序之前计算，但左边的逗号在排序之后计算。换句话说，列表运算符倾向于吞噬所有跟在它们后面的参数，然后就前面的表达式表现得像一个简单的 TERM。

并且* 运算符具有比命名一元运算符10. 更高的优先级7.

所以在scalar @arr * 100 * 有更高的优先级。