Исходное сообщение
"получить дерево каталогов с заданием корневого каталога" Отправлено михалыч, 10-Янв-14 10:25
> Я давно на перле не пЕсал - но чет мне кажется что > возвращать ссылку на массив который объявлен как "my" внутри блока не > есть гут )) Да, согласен! Область видимости переменных никто не отменял. Всё дело в рекурсии, каждый вызов объявляет новый манипулятор каталога и новый массив. Короче, не прокатит. Массивов бояться на перле не пейсать )) Мы боимся и потому почти обойдёмся без них. Вот те же яица, вид профиль с циклом for, без массива для "складирования" полученных директорий и с живым print'ом )) #!/usr/bin/perl use strict; use warnings; my $path = $ARGV[0] || "/home"; sub tree {     my $root = shift;     my $dh;     opendir $dh, $root;     my @dir = readdir $dh;     closedir $dh;     for my $subdir (@dir) {         next if $subdir eq "." or $subdir eq "..";         print "$root/$subdir\n" and tree("$root/$subdir") if -d "$root/$subdir";     } } tree $path;

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> Я давно на перле не пЕсал - но чет мне кажется что >> возвращать ссылку на массив который объявлен как "my" внутри блока не >> есть гут )) > Да, согласен! > Область видимости переменных никто не отменял. > Всё дело в рекурсии, каждый вызов объявляет новый манипулятор каталога и новый > массив. > Короче, не прокатит. > Массивов бояться на перле не пейсать )) > Мы боимся и потому почти обойдёмся без них. > Вот те же яица, вид профиль с циклом for, без массива для > "складирования" полученных директорий и с живым print'ом )) > [code]#!/usr/bin/perl > use strict; > use warnings; > my $path = $ARGV[0] || "/home"; > sub tree { > my $root = shift; > my $dh; > opendir $dh, $root; > my @dir = readdir $dh; > closedir $dh; > for my $subdir (@dir) { > next if $subdir eq > "." or $subdir eq ".."; > print "$root/$subdir\n" and tree("$root/$subdir") > if -d "$root/$subdir"; > } > } > tree $path;[/code]
	Введите код, изображенный на картинке: