Подключение к БД MySQL из perl с использованием модуля DBI

⇐ Предыдущая 7 8 9 10 11 12 13 14 1516

#!/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); # Выполнение запроса $sth->execute;while ($line = $sth->fetchrow_arrayref){ # Печатаем результатprint "$$line[0] <BR>\n" } # Отключание от базы $rc = $sth->finish;$rc = $dbh->disconnect;

В файле mysql.pl содержатся данные, необходимые для подключения к базе данных. Вынесение их в отдельный файл позволяет при смене каких-либо параметров подключения (например, смене пароля) сделать изменение только в одном файле.

Mysql.pl

#!/usr/local/perl/bin/perl # Имя пользователя БД $opt_user="root"; # Пароль доступа к БД $opt_password=""; # Имя базы $database="ucheb";

⇐ Предыдущая 7 8 9 10 11 12 13 14 1516

Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных