Базы данных. Пономарев А.А. - 60 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

<form action=/cgi-bin/simple2.cgi method=get>
Обновить: <input type=text name=form2_pole1 width=70><p>
<input type=submit value=Отправить><input type=reset
value="очистить">
</form>
</body>
Таким образом, используя этот код, можно с одной страницы вызывать
две различные управляющие программы, указанные после тэга action
соответствующей формы (simple1.cgi, simple2.cgi).
Второй способ заключается в использовании условия if, например:
if($input{'send'} eq 'Добавить')
{print "<B>Добавление</B><BR>\n";}
else
{print "<B>Удаление</B><BR>\n";}
Также для этой задачи можно использовать различные метки,
указатели, скрытые поля и т.д.
Пример. Подключение к БД MySQL из perl с использованием модуля
DBI.
Файл Main.pl
#!/usr/local/perl/bin/perl.exe
# Подключаем модуль 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";
print "<h3>Список таблиц БД $database</h3>\n ";
$query = "SHOW TABLES";
# подготовка запроса
$sth = $dbh->prepare($query);
# Выполнение запроса
$sth->execute;
while ($line = $sth->fetchrow_arrayref)
{
#Печатается результат запроса
print "$$line[0] <BR>\n"
}
$query = "select * from spj";
# подготовка запроса
60

Страницы