在 Perl 中，为什么 `while() {...}` 构造不本地化 `$_`？

Question

Perl 不使用以下语法自动本地化 $_ 的设计（或技术）原因是什么：

while (<HANDLE>) {...}

它被重写为：

while (defined( $_ = <HANDLE> )) {...}

隐式写入 $_ 的所有其他构造> 以本地化方式（for/foreach、map、grep）执行此操作，但使用 while，您可以必须显式本地化变量：

local $_;
while (<HANDLE>) {...}

我的猜测是它与在“Super-AWK”模式下使用命令行开关使用 Perl 有关，但这可能是错误的。

因此，如果有人知道（或者更好的是参与了语言设计讨论），您能否与我们分享这种行为背后的原因？更具体地说，为什么允许 $_ 的值在循环之外保留很重要，尽管它可能会导致错误（我倾向于在 SO 和其他 Perl 代码中看到这种错误） ）？

---

如果上面的内容还不清楚，那么 $_ 必须使用 while 进行本地化的原因如下例所示：

sub read_handle {
    while (<HANDLE>) { ... }
}

for (1 .. 10) {
     print "$_: \n"; # works, prints a number from 1 .. 10
     read_handle;
     print "done with $_\n";  # does not work, prints the last line read from
                              # HANDLE or undef if the file was finished
}

Answer 1

来自 perlmonks.org 上的线程：

foreach之间有区别
和 while 因为它们完全是两个
不同的事情。 foreach 总是
循环时分配给变量
在列表上， while while 通常
没有。只是 while (<>) 是
一个例外，并且只有当有一个
单钻石运营商有一个
隐式赋值给 $_。

还有：

while(<>)的一个可能原因
不会将 $_ 隐式本地化为
它的神奇之处在于有时
您想要访问的最后一个值
$_ 位于循环之外。

Answer 2

很简单，while 永远不会本地化。没有变量与 while 构造相关联，因此它甚至没有任何需要本地化的内容。

如果您更改 while 循环表达式或 while 循环体中的某些变量，则您有责任充分确定其范围。

Answer 3

推测：因为 for 和 foreach 是迭代器并循环值，而 while 对条件进行操作。在 while () 的情况下，条件是从文件中读取数据。 是写入 $_ 的内容，而不是 while。隐式 define() 测试只是一种功能，可以防止天真的代码在读取错误值时终止循环。

对于其他形式的 while 循环，例如 while (/foo/)，您不会想要本地化 $_。

虽然我同意如果 while () 本地化 $_ 会很好，但这必须是一个非常特殊的情况，这可能会导致其他问题识别何时触发和何时不触发，就像 的规则区分是句柄读取还是对 glob 的调用。

Answer 4

附带说明一下，我们只编写 while(<$fh>) 因为 Perl 没有真正的迭代器。如果 Perl 有适当的迭代器，<$fh> 将返回一个。 for 将使用它一次迭代一行，而不是将整个文件放入数组中。不需要 while(<$fh>) 或与之相关的特殊情况。