Perl рекурсивная обработка файлов, как? - есть ответ

idShura, 254 просмотра

perl удаление файлов в директории и всех подпапках старше x дней, как реализовать? Желательно, реализовать с модулями по умолчанию. (платформа windows).

Примечание:
Перл тут притом, потому что я пишу на перле.

Примечание:
Начал делать через File::Find, из тех вариантов что я успел попробовать - оказался лучшим.

Ответы:

John Freeman

И при чём тут перл? man find, find любой, хоть из WSFU(по новому Subsystem for UNIX based applications) штатного, хоть от cygwin.
find . -Btime +2d -type f -exec rm \{\} \;
P.S. Реализовывать это на любом другом скриптинге это гемор с findfirst/findnext/enumfiles.

parserpro

opendir + readdir это если охота секаса
File::Find - путь попроще
а вообще find именно для таких задач и был придуман.

14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.