Форум программистов [Powered by Invision Power Board]

Код

use strict;
use warnings;
use DBI;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
# Вывод поля заголовка о типе содержимого
my $q = new CGI;
print $q->header;

# Подключаемые модули
my $db_name = '****';        # Имя базы данных
my $db_host = '****';# Имя хоста сервера баз данных
my $db_port = '****';     # Порт
my $db_user = '****';     # Имя пользователя
my $db_passwd = '****';      # Пароль

my $dbh = DBI->connect("DBI:mysql:$db_name:$db_host:$db_port", $db_user, $db_passwd) or die print $!;
my @result = @{ $dbh->selectall_arrayref("SELECT NodeID, ParentID, name, seq FROM test ORDER BY seq", { Slice => {} }) } ;


my $tree = { 0 => { id => 0, name => 'ROOT', children => [] } };
# первый проход
for my $item (@result)
{
    my $node = exists $tree->{ $item->{id} } ? $tree->{ $item->{NodeID} } : { children => [] };
    # добавляемся в детишки к родителю
    # а заодно автоматом создаем ноду родителя $tree->{ $item->{parent} }, если таковой еще нет
    push @{$tree->{ $item->{ParentID} }{children}}, $node;

    # заполняем информацией свою ноду. 
    # при этом помним, что дети добавляются в свойство-массив children этой ноды независимо 
    # либо раньше, либо позже в зависимости от порядка выборки. кодом выше
    $node->{id} = $item->{NodeID};
    $node->{name} = $item->{name};
    $tree->{$item->{NodeID}} = $node;
}

# второй проход - вывод
print '<table width=200 border=1>';
outNode($tree->{0});
print '</table>';
sub outNode
{
   my $node = shift;
   my $level = shift;
   my $indent = ' - ' x $level;
   print '<tr>' ;
   print '<td>';
   print $indent, $node->{name}, "- $level";
   print '</td>';
   print '</tr>',"\n";
   for my $child ( @{ $node->{children} } ) 
   {
      outNode($child, $level + 1);
   }
}

$dbh->disconnect;