Исходное сообщение
"получить дерево каталогов с заданием корневого каталога" Отправлено Александр, 08-Янв-14 19:45
> Google: perl @ARGV @ARGC #я так понимаю проблема в самой рекурсии, я набросал простой код, для проверки: my $a; sub test_rec {     my ($end, $ref) = @_;     my @arr;     push @arr, $ref if ($ref);     push @arr, $end;     for(my $i =1; $i < $end; $i++) {         test_rec($end - $i, \@arr);     }     return \@arr; } $a = test_rec(3, $a); print "\n\n@{$a}"."\n\n"; print @_."\n" for @{$a}; #в результате получаю один елемент (импользуемый в первом проходе рекурсии), Пробовал и по ссылкам и по значениям передавать.. При пощаговом прохождение все нормально до вызова return, при этом один за одним удаляются элементы из массива. #задачу можно легко решить используя для push внешний массив, но я хочу разобраться как решить эту задачу имено используя внутренний массив в рекурсиивной функции.

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> Google: perl @ARGV @ARGC > #я так понимаю проблема в самой рекурсии, я набросал простой код, для > проверки: > my $a; > sub test_rec { > my ($end, $ref) = @_; > my @arr; > push @arr, $ref if ($ref); > push @arr, $end; > for(my $i =1; $i < $end; $i++) { > test_rec($end - $i, \@arr); > } > return \@arr; > } > $a = test_rec(3, $a); > print "\n\n@{$a}"."\n\n"; > print @_."\n" for @{$a}; > #в результате получаю один елемент (импользуемый в первом проходе рекурсии), Пробовал и > по ссылкам и по значениям передавать.. При пощаговом прохождение все нормально > до вызова return, при этом один за одним удаляются элементы из > массива. > #задачу можно легко решить используя для push внешний массив, но я хочу > разобраться как решить эту задачу имено используя внутренний массив в рекурсиивной > функции.
	Введите код, изображенный на картинке: