Чем удалить непустой каталог?

[Дерево познания]

Модуль подскажите? Чтобы каталог удалить.

use File::Remove qw(remove);

remove "название каталога";

не работает %(

[ondr]

use File::Path;

rmtree("path/to/dir");

Но в данной функции может сработать команда die.
Чтобы это блокировать используй:

eval { rmtree("path/to/dir") } && print "Каталог ликвидирован\\n";

[vladsu]

Как вариант.

Предварительно перейдя в диру

Код: [Выделить]


unlink $_ while (<*>);

или что-нибудь такое

Код: [Выделить]


@files = grep {-f "$dir_name/$_" } readdir(DIR);
unlink $_ foreach (@files);

ЗЫ Только нужно подумать о сабдирах!

[NeoNox]

ondr
твой кусок кода с eval работает с точностью до наоборот.
А точнее сообщение неверное

[ondr]

[OFF]Факир был пьян и фокус не удался.[/OFF]

NeoNox
Исправил. Исправление пометил красным.