perl - Perl 中的列表运算符优先级

Question

我正在读《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所说的做了，并认为有向左和向右列表运算符。现在我明白了这意味着什么，我就明白了整个事情。

Answer 1

好吧，对于初学者来说:列表运算符是 Perl 中优先级最低的事物之一，但仅在其右侧。你问这意味着什么:好吧，让我们简单一点。假设有一个名为 foo 的列表。它做什么并不重要，但它就在那里。您可以使用 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 确保的方式大多数时候我们不需要添加括号。数学、按位运算符、比较，甚至正则表达式匹配都具有更高的优先级。

唯一优先级较低的是拼写出来的逻辑连接词 and , or , xor ，和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和"\n"在 void 上下文中进行评估。