linux 目录缓存条目,为什么Perl的readdir()缓存目录条目？

opendir的结果似乎是在调用它时在目录中的文件列表.如果您更改了目录,则需要调用rewinddir：

my $dir_snippets = "/tmp/fruit";

system ("rm -rf $dir_snippets");

mkdir $dir_snippets or die $!;

my $banana = "$dir_snippets/banana";

system ("touch $banana");

opendir(SNIPPETS, $dir_snippets); # or die...

while ( my $snippet = readdir(SNIPPETS) ) {

if (-f $banana) {

unlink $banana;

rewinddir SNIPPETS;

}

print ">>>".$snippet."\n";

}

closedir(SNIPPETS);

给你

>>>.

>>>.

>>>..

没有rewinddir你得到

>>>.

>>>..

>>>banana

只用C测试,我得到同样的东西：

#include

#include

#include

#include

#include

#include

int main ()

{

DIR * fruit;

struct dirent * file;

fruit = opendir ("/tmp/fruit");

if (! fruit) {

fprintf (stderr, "opendir failed: %s\n", strerror (errno));

exit (EXIT_FAILURE);

}

while (file = readdir (fruit)) {

unlink ("/tmp/fruit/banana");

printf (">>> %s\n", file->d_name);

}

closedir (fruit);

}

给出以下内容(在用“touch”创建文件“banana”之后)：

$./a.out

>>> .

>>> ..

>>> banana

$./a.out

>>> .

>>> ..