--$| 怎么样？在 Perl 中工作？

Question

最近我遇到了这种方法来过滤列表中的每一个第二值​​：

perl -E 'say grep --$|, 1..10'
13579

它是如何工作的？

Answer 1

$| 是一个特殊的 Perl 变量，只能具有值 0 和 1。
任何对 true 非零值的 $| 的赋值，

$| = 1;
$| = 'foo';
$| = "4asdf";          # 0 + "4asdf" is 4
$| = \@a;

都会产生将 $| 设置为 1 的效果。 false 零值

$| = 0;
$| = "";
$| = undef;
$| = "erk";            # 0 + "erk" is 0

会将 $| 设置为 0。

将 --$| 展开为 $| = $| - 1，现在你可以看到发生了什么。
如果 $| 最初为 1，则 --$| 会将值更改为 0。
如果 $| 最初为 0，则 --$| 将尝试将该值设置为 -1，但实际上会将该值设置为 1。

Answer 2

哈!当“预先递减”时，$| 在零值（在 Perl 中为 false）和一值（true）之间翻转——它只能保存这些值。

因此，您的 grep 标准在每次传递时都会发生变化，变为 true、false、true、false 等，从而返回列表中的所有其他元素。

太聪明了一半。

Answer 3

$| 只能是零或一。默认值为 0，因此通过在 grep -ing 第 0 个索引之前递减它，它将是 1。

随后的减量实际上会将其从零“切换”到一再到零，依此类推。

Answer 4

关键是这种使用只是一种令人讨厌的黑客行为。
$| （或其更具可读性的别名 $OUTPUT_AUTOFLUSH）是一个特殊变量，用于控制 STDOUT （或当前选定的文件句柄）的自动刷新。因此它只接受 true (1) 或 false (0)。