ВУЗ:
Составители:
Рубрика:
ПРИЛОЖЕНИЕ D
Подключение к БД MySQL из perl с использованием модуля DBI
#!/usr/local/perl/bin/perl.exe
# Пример работы с модулем DBI.
# Подключаем модуль DBI для работы с MySQL(далее БД)
# Модуль можно подключить командами use или require.
use DBI;
#Выносим данные, необходимые для подключения к MySQL, в отдельный
#файл(mysql.pl).
require 'mysql.pl';
# Вывод http-заголовка
print "Content-type: text/html\n\n";
# Подключение к базе
$dbh = DBI->connect("DBI:mysql:database=$database", $opt_user,
$opt_password) ||
die "Can't connect: $DBI::errstr\n";
# Формируем запрос на просмотр имеющихся баз данных
$query = "SHOW TABLES";
# Подготовка запроса
$sth = $dbh->prepare($query);
$sth->execute();
$cols=$sth->{NUM_OF_FIELDS};
#Формирование заголовка таблицы
print "<table width=70% align=center cellspacing=0 cellpadding=1
border=1>";
print "<tr valign=middle align=center>";
@fieldname=@{ $sth->{NAME}};
for($i=0;$i<$cols;$i++)
{
print "<td><b>$fieldname[$i]</b></td>\n";
}
print "</tr>";
#Формирование таблицы
while (my $ref=$sth->fetchrow_arrayref())
{
print "<tr align=center>";
for($i=0;$i<$cols;$i++)
{
print "<td>",$ref->[$i],"</td>";
}
print "<tr>\n";
}
print "</table>";
$query = "select * from tab_name";
# Подготовка запроса
$sth = $dbh->prepare($query);
# Выполнение запроса
99
