带有 glob 返回旧值的行输入运算符

Question

以下摘录代码在 perl 5.16.3 和更早的版本上运行时有一个奇怪的行为，其中在行输入运算符中对 glob 的后续调用导致 glob 继续返回以前的值，而不是重新运行 glob .

#!/usr/bin/env perl

use strict;
use warnings;

my @dirs = ("/tmp/foo", "/tmp/bar");

foreach my $dir (@dirs) {    
    my $count = 0;
    my $glob = "*";
    print "Processing $glob in $dir\n";
    while (<$dir/$glob>) {
        print "Processing file $_\n";
        $count++;
        last if $count > 0;
    }
}

如果您将两个文件放在 /tmp/foo 中，并将一个或多个文件放在 /tmp/bar 中，然后运行代码，我会得到以下输出：

在 /tmp/foo 中处理 *

处理文件/tmp/foo/foo.1

在 /tmp/bar 中处理 *

处理文件/tmp/foo/foo.2

我认为当while 在last 之后终止时，在第二次迭代中对while 的新调用将重新运行 glob 并给我列出的文件 /tmp/bar ，但我得到了 /tmp/foo 中内容的延续。

这几乎就像角度运算符 glob 的行为类似于预编译模式。我的假设是角度运算符正在符号表中创建一个文件句柄，该文件句柄仍处于打开状态并在后台被重用，并且它的范围为包含foreach，或者可能是整个子例程。

Answer 1

来自I/O Operators in perlop （我的重点）

一个（文件）glob 仅在它开始一个 新名单。 在重新开始之前必须读取所有值。 在列表中 上下文，这并不重要，因为您会自动获取所有内容 反正。但是，在标量上下文中，运算符返回下一个值 每次调用它，或者当列表用完时undef。

由于<> 在此处以标量上下文调用，并且您在第一次迭代后使用last 退出循环，因此下次您输入它时，它会继续从原始列表中读取。

---

在 cmets 中澄清了这个任务背后的实际需求：只处理目录中的一些文件并且从不返回所有文件名，因为可能有很多。

因此，从glob 分配到一个列表并使用它，或者更好的是使用for 而不是while，正如ysth 评论的那样，在这里没有帮助，因为它返回一个巨大的列表。

我还没有找到一种方法让glob（<> 使用文件名模式）在列表生成后删除并重建列表，而无需先结束。 显然，运算符的每个实例都有自己的列表。因此，在 while 循环中使用另一个 <> 并希望以任何方式甚至使用相同的模式重置它，不会影响在 while (<$glob>) 中迭代的列表。

请注意，使用die（while 在eval 中）打破循环也无济于事；下次我们来到while 时，将继续使用相同的列表。将其包裹在一个闭包中

sub iter_glob { my $dir = shift; return sub { scalar <"$dir/*"> } }

for my $d (@dirs) {
    my $iter = iter_glob($d);
    while (my $f = $iter->()) {
        # ...
    }
}

遭遇同样的命运；原始列表继续使用。

那么解决方案是改用readdir。