Perl Challenge - итератор каталогов

Question

Вы иногда слышите, что в Perl сказано, что может быть 6 разных способов решения одной и той же проблемы. У хороших разработчиков Perl обычно есть веские аргументы в пользу выбора между различными возможными методами реализации.

Пример проблемы с Perl:

Простой скрипт, который рекурсивно перебирает структуру каталогов, ища файлы, которые были изменены недавно (после определенной даты, которая будет переменной). Сохранить результаты в файл.

Вопрос для разработчиков Perl: каков ваш лучший способ сделать это?

Answer 1

Я пишу подпрограмму, которая читает каталог с readdir, выбрасывает "." и ".." каталоги, рекурсивно, если он находит новый каталог, и проверяет файлы на предмет того, что я ищу (в вашем случае вы захотите использовать utime или stat). К моменту завершения рекурсии каждый файл должен быть проверен.

Я думаю, что все функции, которые вам понадобятся для этого скрипта, кратко описаны здесь: http://www.cs.cf.ac.uk/Dave/PERL/node70.html

Семантика ввода и вывода - довольно тривиальное упражнение, которое я оставлю вам.