Все о MySQL. Создание древовидного оглавления комментариев. Напечатать или умереть

Как нетрудно догадаться, этот процесс должен стать настоящим испытанием для сервера базы данных, особенно при наличии большого количества уровней. Для простоты предыдущий сценарий не включает ни одного оптимизирующего решения, направленного на снижение нагрузки на сервер. Однако при разработке реального приложения вопросам оптимизации необходимо всегда уделять должное внимание.
В этом случае, например, возможность повысить производительность заключается в распечатке всего дерева комментариев в виде статического HTML-файла (который будет обновляться с добавлением нового комментария) и включения его (функция include() ) во все страницы приложения вместо того, чтобы запрашивать базу данных для получения дерева комментариев при каждом запросе страницы. Этот метод существенно снижает количество соединений и запросов на сервере MySQL, не оказывая существенного влияния на функциональность программного приложения. 
Листинг 20.38.
#!/usr/bin/perl
# считать необходимые модули use DBI;
use CGI;
# инициировать объект CGI $cgi = new CGI();
# распечатать HTTP- заголовки print $cgi->header();
# проверка отправки идентификатора статьи if (!$cgi->param('aid'))
{
print "Невозможно найти идентификатор статьи, завершение работы
die;
}
else
{
$aid = $cgi->param('aid');
}
# распечатать заголовок страницы print $cgi->start_html;
# подключиться к базе данных
my $dbh = DBI->connect("DBI:mysql:database=dbl;host=localhost", "root", "pass', ('RaiseError' => 1));
# выполнить запрос
my $sth = $dbh->prepare("SELECT atitle, abody FROM articles WHERE aid='$aid'");
$sth->execute();
# если получен результат
# распечатать содержание статьи
# иначе - сообщение об ошибке if ($sth->rows() > 0)
{
$ref = $sth->fetchrow_hashref();
print "<font face="Verdana, Aria1" size="4" color="#6 6CC00">n";
print $ref->{'atitle'), "n"; print "</font>n"; print "<p>n";
print "<font face="Verdana, Aria1" size="2"
color="Black">n";
print $ref->{'abody'), "n"; print "</font>n";
}
else
{
print " Невозможно выбрать содержание статьи, завершение рабо­ты..."; die;
}
# закрыть соединение с базой данных $sth->finish(); $dbh->disconnect();
# отобразить дерево комментариев print "<hr>n";
build_tree (0, $aid); 
print" <hr>n";
# Распечатать нижний колонтитул страницы
# со ссылкой на форму создания комментариев print <<EOF;
<font face="Verdana, Arial" size="2" color="Black">
<a href="post.cgi?aid=$aid">Прокомментировать</a> эту статью. </font>
EOF
print $cgi->end_html;
# это рекурсивная функция,
# предназначенная для построения дерева комментариев
# код представлен в предыдущем листинге sub build_tree ()
{
# Здесь размещается код функции
}
На рис. 20.6 показано, как теперь будет выглядеть вывод пересмотренного сценария, дополненного деревом комментариев.