Perl практика


              

Чтение дескриптора каталога.


Используется вызов readdir, который возвращает следующее имя файла или undef

opendir(ETC, "/etc") die "cannot opendir /etc:$!"; while(defined($name = readdir(ETC))) { print "$name\n"; } closedir(ETC);

Или в отсортированном порядке

opendir(ETC, "/etc") die "cannot opendir /etc:$!"; foreach $name (sort readdir(ETC)) { print "$name\n"; } closedir(ETC);




Содержание  Назад