Chuck, тогда объясните, что должна делать данная функция  ?
Например, из вашего скрипта видно, что необходимо вернуть "секции", у которых в "родителях" section_parent=20.
Но зачем тут "на первый взгляд" рекурсия?
Если всё же верно:
Цитата(Chuck @ 15.9.2008, 20:21  ) | | Задача состоит в том, чтобы написать функцию, которая бы вытаскивала из этого списка только те секции, section_parent которых равен определенному значению. |
ТО:
Из sub get уберите get($sid);.
Добавлено через 3 минуты и 37 секунд
А если все секции и внутри веток, то:
У вас неверно создается древовидная структура!
Добавлено через 6 минут и 13 секунд
Я всегда привожу примерную структуру, на которой можно выявлять некоторые ошибки...
Вот как пример (сильно не бить за стиль... утро ) ):
| Код | #!/usr/bin/perl
use strict;
use warnings;
my @sections = (
{
'section_parent' => '0',
'section_id' => '0',
'section' => 'Parent',
},
{
'section_parent' => '0',
'section_id' => '1',
'section' => 'Menu',
},
{
'section_parent' => '1',
'section_id' => '2',
'section' => 'Sub Menu1',
},
{
'section_parent' => '2',
'section_id' => '3',
'section' => 'Sub Menu1_1',
},
{
'section_parent' => '2',
'section_id' => '4',
'section' => 'Sub Menu1_2',
},
{
'section_parent' => '4',
'section_id' => '5',
'section' => 'Menu',
},
{
'section_parent' => '4',
'section_id' => '6',
'section' => 'Sub Menu1_1_2',
},
{
'section_parent' => '6',
'section_id' => '7',
'section' => 'Sub Menu1_1_1_2',
},
{
'section_parent' => '7',
'section_id' => '8',
'section' => 'Menu',
},
{
'section_parent' => '6',
'section_id' => '9',
'section' => 'Sub Menu2_1_1_2',
},
{
'section_parent' => '9',
'section_id' => '10',
'section' => 'Menu',
},
);
sub get {
my $parent = shift;
foreach my $section (@sections) {
if ( $parent == $section->{section_parent} ) {
my $sid = $section->{section_id};
my $s = $sections[$sid];
print %{$s}, "\n";
get($sid);
}
}
}
get(1); |
|