Удаление подкаталогов и файлов в заданном каталоге

Ответ 1 · рейтинг 9 · TLP

ETA: На самом деле это в perlfaq5: Как удалить дерево каталогов?

Используйте File::Path, основной модуль.

perl -MFile::Path=remove_tree -we
    'remove_tree("Sample",{keep_root=>1}) or die $!'

Опция keep_root заставит remove_tree сохранить верхний каталог:

keep_root => $bool

When set to a true value, will cause all files and subdirectories to be removed, except the initially specified directories. This comes in handy when cleaning out an application's scratch directory.