为什么 Perl 文件 glob() 不能在标量上下文中的循环之外工作？

根据有关文件通配的 Perl 文档， 运算符或 glob() 函数在标量上下文中使用时，应迭代与指定模式匹配的文件列表，每次调用时返回下一个文件名或undef 当没有更多文件时。

但是，迭代过程似乎只能在循环内进行。如果它不在循环中，那么它似乎在读取所有值之前立即重新开始。

来自 Perl 文档：

In scalar context, glob iterates through such filename expansions, returning undef when the list is exhausted.

http://perldoc.perl.org/functions/glob.htmlhttp://perldoc.perl.org/functions/glob.html http://perldoc.perl.org/functions/glob.html

However, in scalar context the operator returns the next value each time it's called, or undef when the list has run out.

这是一种捕捉魔法的方法<>glob 运算符的状态转换为一个对象，您可以以正常的方式操作它：匿名子（和/或闭包）！

sub all_files {
    return sub { scalar <*> };
}

my $iter = all_files();
print $iter->(), "\n";
print $iter->(), "\n";
print $iter->(), "\n";

也许：

sub dir_iterator {
    my $dir = shift;
    return sub { scalar glob("$dir/*") };
}
my $iter = dir_iterator("/etc");
print $iter->(), "\n";
print $iter->(), "\n";
print $iter->(), "\n";

然后我又倾向于将其归档在“好奇心”下。忽略这个特殊的奇怪之处glob() / <>并使用opendir/readdir, IO::All http://search.cpan.org/perldoc/IO::All/readdir, or 文件::全局 http://search.cpan.org/perldoc/File::Glob反而 ：）