Скрипты на языке Perl позволяют открывать и читать содержимое файлов. Точно так же эти скрипты открывают каталоги и читают имена содержащихся в них слайдов. Для открытия каталога скрипты используют функцию opendir , передавая указатель каталога и путь к нему. Для чтения списка файлов, содержащихся в каталоге, скрипт использует функцию readdir . Наконец, для закрытия каталога используется функция closedir . Следующий фрагмент программы иллюстрирует использование функции readdir для того, чтобы вывести на экран список файлов в текущем каталоге:
opendir(Dir, $INC[2]) || die;
while ($file = readdir(Dir))
{
print “$file \n”
}
closedir ( Dir );
В этом фрагменте используется переменная $ INC [2 J для доступа к текущему каталогу. Изменяя $ INC [2] на $ ARGV [0], скрипт выводит на экран список файлов, содержащихся в каталоге, который вы указали в командной строке.
В дополнение к функциям для работы с каталогами, которые были рассмотрены выше, Perl предлагает еще набор фикций, которые позволяют позиционировать текущий указатель в списке каталога:
$result = rewinddir(DirHandle);
$result = telldir(DirHandle);
$result = seekdir(DirHandle, Position);