Документация
HTML CSS PHP PERL другое

Открытие, чтение и закрытие каталогов

 

Открытие, чтение и закрытие каталогов

Скрипты на языке 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);

Назад | Оглавление | Далее
© 2000- NIV