glob 迭代器如何在函数调用之间存储？

Question

我对我的earlier question about glob 的回答发表了以下评论：

glob() 或 die 在不在函数调用中时可以正常工作。它可以重复调用并按预期工作。所以上面的两个文件是存在的。在函数失败中第四次调用 glob 三次 (main, function, main = success)。函数内的行为不同于函数内的行为。

ysth回复：

函数没有区别，但源代码中的每个 glob 运算符都是一个单独的迭代器，因此除非以某种方式循环返回，否则您不会看到问题

在以下代码中，为什么/在哪里/如何在调用之间保存来自 glob 运算符的迭代器？为什么它没有超出范围？我知道它在做什么，但看不到它在内存中的表现。

sub in_function {
    my $file = shift;

    glob($file) or die ("$file file was not found\n"); #this fails second time called
}

Answer 1

它存储在由操作码地址（MY_CXT.x_GLOB_ENTRIES in ext/File-Glob/Glob.xsglob.xs）键入的每个解释器哈希中。

它由操作码的地址作为关键字，这意味着源中操作码的两个实例将具有不同的迭代器。

$ perl -E'say "".glob("{a,b}") for 1..2;'
a
b

$ perl -E'say "".glob("{a,b}"); say "".glob("{a,b}");'
a
a

它是每个解释器的事实意味着每个线程对于给定的操作码实例都有自己的迭代器。

$ perl -Mthreads -E'
   sub f { say "".glob("{a,b}"); }
   f() for 1..2;
'
a
b

$ perl -Mthreads -E'
   sub f { say "".glob("{a,b}"); }
   async { f() }->join for 1..2;
'
a
a