https://www.opennet.ru/openforum/vsluhforumID9/6856.html Ситуация: <br>Есть некое файловое хранилище с какой-то структурой папок. <br>Простенький скрипт по заданному расписанию чистит его, удаляя файлы удовлетворяющие определенным требованиям. Используется File::Find. <br><br>Вопрос: <br>Как автоматом удалять оставшиеся пустыми папки чтобы не плодить мусор?<br><br>Если в процедуру удаления файлов в конце добавить rmdir, то текущий каталог удалится если он остался пустым, а каталог на один уровень выше уже нет!<br> https://www.opennet.ru/openforum/vsluhforumID9/6856.html#8 Wed, 17 Oct 2007 19:45:42 GMT &gt;&gt;А нет чего-либо типа модуля File::Find но для работы с каталогами? <br>&gt;<br>&gt;удаляй пряом из филе финд. <br><br>Супер: работает быстро и ничего не грузит.<br>Спасибо огромное за код!<br> https://www.opennet.ru/openforum/vsluhforumID9/6856.html#7 Wed, 17 Oct 2007 18:23:00 GMT Спасибо попробую.<br> https://www.opennet.ru/openforum/vsluhforumID9/6856.html#6 Wed, 17 Oct 2007 14:41:11 GMT &gt;А если глубина структуры большая такой алгоритм всю оперативку не сожрет? <br><br>А вы представляете какую глубину надо создать для этого? Кроме-того File::Find работает аналогичным образом, отжирая при этом больше памяти. Если он у вас справляется, то и такой обход справится :)<br><br> https://www.opennet.ru/openforum/vsluhforumID9/6856.html#5 Wed, 17 Oct 2007 13:02:24 GMT &gt;&gt;&gt;А если глубина структуры большая такой алгоритм всю оперативку не сожрет? <br>&gt;&gt;<br>&gt;&gt;Есть такой косяк. Можно модифицировать алгоритм и рекурсию заменить стеком и циклом(впринципе <br>&gt;&gt;та же рекурсия, но более экономная). <br>&gt;<br>&gt;А нет чего-либо типа модуля File::Find но для работы с каталогами? <br><br>удаляй пряом из филе финд.<br>#!/usr/bin/perl -w<br><br>use strict;<br>use File::Find;<br>use Data::Dumper;<br><br>my @directories_to_search = ('./testdir1');<br>finddepth({ wanted =&gt; \&wanted, no_chdir =&gt; 1 }, @directories_to_search);<br><br>sub wanted { <br> my $t = $_;<br> #print "file: $File::Find::name\n";<br> #print "it is: $t\n";<br> <br> my $cnt;<br> my $name = $File::Find::name;<br> if(-d $name) {<br> print "$name \tis directory!\n";<br> if(is_empty($name)) {<br>print "$name \tis EMPTY directory!\n";<br>if(!rmdir($name)) {<br> print "Error delete $name with errno: $!\n";<br>}<br> }<br> } elsif(-f $name) {<br> print "$name \tis file!\n";<br> } else {<br> print "$name \tis unknown type!\n";<br> }<br>}<br><br><br>sub is_empty {<br> my $dir = shi https://www.opennet.ru/openforum/vsluhforumID9/6856.html#4 Wed, 17 Oct 2007 11:23:02 GMT &gt;&gt;А если глубина структуры большая такой алгоритм всю оперативку не сожрет? <br>&gt;<br>&gt;Есть такой косяк. Можно модифицировать алгоритм и рекурсию заменить стеком и циклом(впринципе <br>&gt;та же рекурсия, но более экономная). <br><br>А нет чего-либо типа модуля File::Find но для работы с каталогами?<br> https://www.opennet.ru/openforum/vsluhforumID9/6856.html#3 Wed, 17 Oct 2007 11:02:25 GMT &gt;А если глубина структуры большая такой алгоритм всю оперативку не сожрет? <br><br>Есть такой косяк. Можно модифицировать алгоритм и рекурсию заменить стеком и циклом(впринципе та же рекурсия, но более экономная).<br><br><br> https://www.opennet.ru/openforum/vsluhforumID9/6856.html#2 Wed, 17 Oct 2007 10:08:42 GMT &gt;&gt;Вопрос: <br>&gt;&gt;Как автоматом удалять оставшиеся пустыми папки чтобы не плодить мусор? <br>&gt;<br>&gt;Рекурсивный обход с удалением не подойдёт? <br>&gt;Функции передаётся корневая папка хранилища. Она ищет все подпапки текущей папки, и <br>&gt;для каждой запускает сама себя. Потом проверяет текущую папку на пустоту, <br>&gt;и если она пуста, удаляет тек. папку. <br><br>А если глубина структуры большая такой алгоритм всю оперативку не сожрет?<br> https://www.opennet.ru/openforum/vsluhforumID9/6856.html#1 Wed, 17 Oct 2007 09:15:35 GMT &gt;Вопрос: <br>&gt;Как автоматом удалять оставшиеся пустыми папки чтобы не плодить мусор? <br><br>Рекурсивный обход с удалением не подойдёт? <br>Функции передаётся корневая папка хранилища. Она ищет все подпапки текущей папки, и для каждой запускает сама себя. Потом проверяет текущую папку на пустоту, и если она пуста, удаляет тек. папку.<br><br><br><br>