По некоторым причинам 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" ясно перечисляет только два файла.
Результатом 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 <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);
}
Дает следующее (после создания файла "banana" с помощью "touch"):
$ ./a.out >>> . >>> .. >>> banana $ ./a.out >>> . >>> ..