Perl 中的列表运算符优先级

我正在读《Beginning Perl》一书，它给出了以下两条语句：

print "Test one: ", 6 > 3 && 3 > 4, "\n";
print "Test two: ", 6 > 3 and 3 > 4, "\n";

第一行不打印任何内容并换行，第二行打印 1 且不换行。

我对输出感到困惑。根据作者的说法，第二个语句给出了奇怪的输出，因为它就像在说：

print ("Test two: ", 6 > 3) and 3 > 4, "\n";

但是，为什么第一个说法不一样呢？我认为这与印刷的优先顺序有关。 && 的优先级高于 print，因此首先对其求值，然后再打印。而“and”的优先级低于 print，因此将打印 6 > 3，print 返回 1，然后使用“and”对其求值。然而这并没有什么意义。

我已经阅读了有关列表运算符的优先级如何工作的 Perl 文档，但我仍然不理解这个示例。你们能剖析一下这两个语句，并告诉我首先打印的是什么吗？您能否解释一下 Perl 文档中提到列表运算符“向左”和“向右”时的含义？谢谢。

非常感谢大家的回答。我现在明白了。我确实按照cjm所说的做了，并认为有向左和向右列表运算符。现在我明白了这意味着什么，我就明白了整件事。

好的，对于初学者来说：列表运算符是 Perl 中优先级最低的事物之一，但是仅在他们的右侧。你问这意味着什么：好吧，让我们简单点。假设有一个名为的listopfoo。它做什么并不重要，但它就在那里。你可以轻松地创建这样的东西sub foo { map 10 * $_, @_ }它返回每个参数乘以十的结果。那不碍事：

print 1, 2, 3;相当于print( 1, 2, 3 );
print foo 1, 2, 3;相当于print( foo( 1, 2, 3 ) );
print 1, foo 2, 3;相当于print( 1, foo( 2, 3 ) );

我们可以看到foo在右侧尽可能多地吞噬——只有语句的结尾（到目前为止......）才能阻止它。如果我们写@array = (1, foo 2, 3);这相当于@array = (1, foo(2, 3) );因为当然结束括号仍然适用。

由于逗号的优先级也非常低（就在“列表运算符（向右）”上方），我们还可以将几乎任何类型的表达式放入 listop 的参数中 - 这只是 perl 确保我们不这样做的方式大多数时候不必添加括号。数学、按位运算符、比较，甚至正则表达式匹配都具有更高的优先级。

唯一的事情是do具有较低优先级的是拼写出来的逻辑连接词and, or, xor, and not。所以如果我们写

foo 1, 2, 3 and 4;

这意味着(foo(1, 2, 3) and 4)——论据foo停在左边and。这在一个人为的例子中看起来很愚蠢，所以让我们把它变成一个常见的 Perl 习惯用法：

open $fh, '<', $filename or die "$! opening $filename";

这相当于

(open($fh, '<', $filename) or die("$! opening $filename"));

这实际上完全等同于（并编译为）

die "$! opening $filename" unless open $fh, '<', $filename;

使用语句修饰符形式unless（它根本不是一个运算符，每个语句只允许一次，并且只出现在语句的末尾，因此它根本不参与优先级，但您可以将其视为“低于最低”优先向左）。

所以无论如何，回到你的原始代码示例——参数print的左侧结束and，并在右侧and是一个完全独立的逗号表达式——它什么也不做，因为它只是一些常量3 > 4 and "\n"在 void 上下文中进行评估。