https://www.opennet.ru/openforum/vsluhforumID3/13159.html Как-то пришлось столкнуться с обработкой иерархически связанной структуры на perl. <br>В инете есть куча разрозненной информации по этому поводу.<br>Можно, например, воспользоваться пакетами с сайта CPAN. Но с одной<br>стороны <br>стрелять из пушки по воробьям ... не дело.. а с другой надо чтобы и в мозгах что-то осталось. <br>Вообщем, задачка решилась и заодно родился вот такой скриптик, не претендующий <br>на уникальность, тем более, что на perl (как и на других мощных языках) одну и ту же задачу <br>можно решить многими способами. Хотя, эффективность этих способов - это уже другой вопрос.<br><br>Итак, скрипт.<br><br>#!/usr/bin/perl<br># Рассмотрим принцип работы рекурсивных функций и построения<br># связанных структур (в данном случае анонимных хэшей) на<br># примере скрипта для иерархического (в виде дерева)<br># отображения подкаталогов, содержашихся в заданном каталоге.<br>#<br># Сначала необходимо провернуть некоторые подготовительные<br># операции. Например, определиться какой каталог будем печатать.<br>print "Directory to print [.]: ";<br> https://www.opennet.ru/openforum/vsluhforumID3/13159.html#2 Fri, 30 Dec 2005 18:56:09 GMT Более того - есть и более эффективные.<br>И без всяких подсказок ;).<br>Моя первоначальная задача была совсем не про<br>директории и не про вывод на консоль :).<br>Пришлось сильно упростить не теряя сути полезного<br>алгоритма.<br> https://www.opennet.ru/openforum/vsluhforumID3/13159.html#1 Thu, 29 Dec 2005 12:28:02 GMT По поводу "эффективность".<br><br>Есть более красивое решение без рекурсии. <br><br>Подсказка: берем массив, загоняем первый элемент и поехали. В цикле while(shift &lt;наш массив&gt;). Новые каталоги загоняем (push unshift) в массив. И никакой рекурсии.