Разработка пользовательского интерфейса к БД в СУБД MySQL. Пономарев А.А. - 28 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

Листинг формирования результатов в таблице
В следующем скрипте показана возможность извлечения данных
из таблицы и представление извлеченной информации в виде таблицы.
Фрагмент скрипта perl result.pl
#!/usr/local/perl/bin/perl
use DBI;
# Имя пользователя БД
$opt_user="root";
# Пароль доступа к БД
$opt_password="";
# Имя базы
$database="guest";
$url="http://localhost/db/form.html";
$cgi="http://localhost/cgi-bin/ ";
# Вывод 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";
# Чтение введенных в форме данных (данный пример
рассматривает случай, когда была осуществлена передача
одного поля формы.) В других скриптах функция включена в
библиотеку cgi-lib и вызывается &ReadParse(*input);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$input{$name} = $value;
}
$query="select * from messages";
# Подготовка
$sth = $dbh->prepare($query);
$sth->execute();
$cols=$sth->{NUM_OF_FIELDS};
#Формирование таблицы и её заголовка
print "<table width=70% align=center cellspacing=0 cell-
padding=1 border=1>";
28

Страницы