w use strict; use CGI
#!/usr/bin/perl - w use strict; use CGI qw( standard); use CGI::Carp; # Использовать модуль DBI use DBI; CGI::use_named_parameters(1); my ($server, $sock, $host); my $output = new CGI; $server = param('server') or Sserver = ''; # Подготовить DBD-драйвер для MySQL my $driver = DBI->install_driver('mysql'); my @databases = $driver->func($server, '_ListDBs'); # Если параметр @databases неопределен, предполагаем, # что на этом узле не запущен # сервер MySQL. Однако это может быть вызвано # другими причинами. Полный текст сообщения об ошибке # можно получить, проверив $DBI::errmsg. if (not @databases) { print header, start_html('title'=>"Данные no Sserver", 'BGCOLOR'=>'white'); print<<END_OF_HTML; <H1>$server</h1> Ha Sserver , по-видимому, не запущен сервер mSQL. </body></html> END_OF_HTML exit(0); } print header, start_html('title'=>" Данные по $host", 'BGCOLOR'=>'white'); print <<END_OF_HTML; <H1>$host</h1> <P> Соединение с $host на сокете $sock. <p> Базы данных:<br> <UL> END_OF_HTML foreach(@databases) { print "<LI>$_\n"; } print <<END_OF_HTML; </ul> </body></html> HTML exit(0)
|
Листинг 13.1.
| Закрыть окно |
Содержание Назад Вперед
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий