RTFM

[shoorick]

Интересные штуковины в книгах находятся!

# Читаем и фильтруем содержимое каталога
opendir(DIR, $path);
@files = sort
         grep { /^.*$what.*$/ }
         grep { -f "$path/$_" }
         grep { !/^\./ } readdir(DIR);
closedir(DIR);

Comments

Ну а чего ты хотел...

[sappa.livejournal.com]

Кто не умеет ни работать ни даже руководить - идет учить других.

Дык

[shoorick.livejournal.com]

Речь-то не о написании книг...
Я на перле пишу уже 6 лет, и, тем не менее, иногда такое нахожу, что сам удивляюсь.