关于优先级+重复修饰符的问题

Question

请您向我解释一下这种显然不一致的行为：

use strict;
my @a;

print "a" x 2; # this prints: aa
@a = "a" x 2; print @a; # this prints: aa

print ("a") x 2; # this prints: a
@a = ("a") x 2; print @a; # this prints: aa

最后一个不应该打印一个'a'吗？

编辑：好的，现在这对我来说更有意义： “二进制“x”是重复运算符...在列表上下文中，如果左操作数被括号括起来或者是由 qw/STRING/ 组成的列表，它会重复该列表。” perlop

这对我来说一清二楚（二进制 x - 为什么使用二进制这个词？有否定的 X 吗？） 但无论如何： @a = ("a") x 2 # 似乎在列表上下文中，因为我们在开头有一个数组 - 数组不是列表，但它包含一个列表，所以我认为我们可能有一个列表上下文,（不是数组上下文，尽管它们可能是同义词）。

我想“左操作数”是（“a”）。 （要么是那个，要么是@a）。 perlop 没有说明操作数实际上是什么，查询 perldoc.perl.org 给出“未找到匹配项”，而谷歌搜索给出“在计算机编程中，操作数是用于描述任何能够被操纵的对象的术语。”比如数组。

所以左操作数可能被括在括号中，所以它可能应该“重复列表”。该列表是：("a") x 2 或者是：("a")

如果我们重复("a") x 2，我们将得到("a") x 2 ("a") x 2。这似乎不对。

如果我们输入：print $a[1]，我们将得到一个 'a'，因此“它重复列表”意味着 Perl 将 ("a") x 2 转换为 ("a", "a")，因此我们有效地得到了 @a=("a", "a")

但是，print ("a") x 2 不会变成 ("a", "a")。那是因为 print 是一个具有高优先级的“列表运算符”。所以我们有效地得到：(print ("a")) x 2

数组是一个术语，所以它也有很高的优先级，但是@a=stuff 涉及到赋值运算符=，它的优先级相对较低。所以它与印刷品完全不同。

Answer 1

在你的脚本中添加use warnings;，然后你会得到warnings like

print (...) interpreted as function .
Useless use of repeat (x) in void context .

像print (("a") x 2); 那样做# 打印：aa

正如您在 cmets 中提到的，如何格式化您的代码，我会说请参阅 Perltidy。

Perltidy 是一个 Perl 脚本，它缩进并重新格式化 Perl 脚本以使其更易于阅读。如果您编写 Perl 脚本，或花大量时间阅读它们，您可能会发现它很有用。

更多关于Perltidy的信息：

您可以下载perltidy并运行它 使用其默认值，或自定义它以使用您喜欢的支撑样式、缩进宽度等。

定制很容易，并且有大量的选项。默认值通常是一个很好的起点。

Perltidy 也可用于生成代码的彩色 HTML 输出。

Perltidy 带有一组合理的默认值；但它们可能不适合您。幸运的是，您可以使用 tidyview 作为图形用户界面来预览 perltidy 对您的代码所做的更改，并查看哪些选项最适合您。您可以从 CPAN 下载tidyview。

注意：始终在脚本开头添加use strict 和use warnings。

Answer 2

我认为您出现奇怪行为的原因是因为 perl 的 print 命令需要一个列表。引用自relevant documentation：

还要注意不要在 print 关键字后面加上左括号，除非您希望相应的右括号终止 print 的参数；在所有参数周围加上括号。

加上括号使它像一个函数一样工作。考虑是否执行此测试用例：

x("y") x 2;

sub x {
    my $y = shift;
    print "1: $y\n"; #result 1: y
    my $y = shift;
    print "2: $y\n"; #result 2:
}

当编写为函数调用时，您的结果对于被评估为其参数的函数而不是在以下操作之后被评估的赋值是一致的。

Answer 3

你被一个常见的 Perl 解析陷阱所困扰。您的第三条语句print ("a") x 2 被解析为：

(print ("a")) x 2;

您可以添加另一组括号来修复解析：

print (("a") x 2);  # prints aa