爲什麼Perl的readdir（）緩存目錄條目？

Question

出於某種原因，Perl中保持高速緩存我想要的目錄項讀取使用readdir：

opendir(SNIPPETS, $dir_snippets); # or die... 
while (my $snippet = readdir(SNIPPETS)) 
{ print ">>>".$snippet."\n"; } 
closedir(SNIPPETS); 

由於我的目錄包含兩個文件，test.pl和test.man，我期待下面的輸出：

. 
.. 
test.pl 
test.man 

不幸的Perl返回很多已經消失得無影無蹤，例如，因爲我試圖將其重命名的文件。之後我謹test.pl到test.yeah Perl會返回以下列表：

. 
.. 
test.pl 
test.yeah 
test.man 

什麼是對這種奇怪的行爲的原因是什麼？ opendir,readdir和closedir的文檔沒有提到某種緩存機制。 「ls -l」清楚地列出了只有兩個文件。

Answer 1

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 

只是肝炎測試，我得到同樣的事情：

#include <stdlib.h> 
#include <stdio.h> 
#include <string.h> 
#include <sys/types.h> 
#include <dirent.h> 
#include <errno.h> 

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); 
} 

提供了以下（以「觸摸」創建文件「香蕉」後）：

 
$ ./a.out 
>>> . 
>>> .. 
>>> banana 
$ ./a.out 
>>> . 
>>> ..