sadoz1
Попробуйте так:
Код:
my %theme = ();
WHILE (...) { #цикл вывода из базы данных ...
$theme{$ln->{'theme'}}{$ln->{'header'}} = $ln->{'page'};
};
foreach my $th (keys %theme) {
print "<b>$th</b><br>\n\n";
foreach my $he (keys %{$theme{$th}}) {
print "Стр. $theme{$th}{$he} $he<br>\n";
};
};
Не знаю на каком языке пишите, но думаю будет что-то очень похожее и на других...
