Пример приложения, использующего DBI.

DBI допускает любые SQL-запросы, поддерживаемые MySQL. Например, рассмотрим базу данных, используемую в школе для ведения учета учащихся, состава классов, результатов экзаменов и т. д. База данных должна содержать несколько таблиц: одну для данных о предметах, другую для данных об учащихся, таблицу для списка экзаменов и по одной таблице для каждого экзамена. Возможность MySQL выбирать данные из нескольких таблиц, используя объединение таблиц, позволяет совместно использовать таблицы как согласованное целое для создания приложения, облегчающего работу учителя.

Для начала мы хотим учесть данные об экзаменах по разным предметам. Для этого нам нужна таблица, содержащая названия и числовые идентификаторы для экзаменов. Нам потребуется также отдельная таблица для каждого экзамена. В этой таблице будут содержаться результаты испытаний для всех учащихся, а также высший балл для проведения сравнения. Таблица test имеет следующую структуру:

CREATE TABLE test (

id INT NOT NULL AUTO_INCREMENT, name CHAR(100),

subject INT, num INT

Для каждого отдельного экзамена структура таблицы такая:

CREATE TABLE t1 (

id INT NOT NULL, q1 INT, q2 INT, q3 INT, q4 INT, total INT )

К имени таблицы t присоединен идентификатор экзамена из таблицы test. При создании таблицы пользователь определяет количество вопросов. Поле total содержит сумму баллов по всем вопросам.

Программа, обрабатывающая данные экзаменов, называется test.pl. Эта программа, текст которой следует ниже, позволяет только добавлять новые экзамены. Просмотр экзаменов и их изменение не реализованы и оставлены в качестве упражнения.

Этот сценарий хорошо показывает возможности DBI:

Листинг 5.21. Скрипт test.pl добавляет новые экзамены

#!/usr/bin/perl -w

use strict;

require my_end;

use CGI qw(:standard);

my $output = new CGI;

use_named_parameters(1);

# Использовать модуль DBI.

use DBI;

# DBI::connect() использует формат 'DBI:driver:database'

# используется драйвер MySQL и открывается база данных 'teach',

my $dbh = DBI->connect('DBI:mysql:teach');

# Операция добавления распределена между тремя функциями. Add -

# выводит пользователю форму шаблона для создания нового экзамена, sub add {

$subject = param('subject') if (param('subjects')); $subject = "" if $subject eq 'all';

print header, start_html('title'=>'Create a New Test', 'BGCOLOR'=>'white');

print <<END_OF_HTML; <Н1>Создание нового экзамена</п1>

<INPUT TYPE=HIDDEN NAME="action" VALUE="add2"> Предмет: END_OF_HTML

my @ids = ();

my %subjects = ();

my $out2 = $dbh->prepare("select id,name from subject order by name");

$out2->execute;

while(my($id,$subject)=$out2->fetchrow_array) {push(@ids,$id);

$subjects{"$id"}'= $subject; }

print popup_menu(

'name'=>'subjects',

'values'=>[@ids],

'default'=>$subject,

'labels'=>\%subjects);

print <<END_OF_HTML; <br>

Число вопросов: <INPUT NAME="num" SIZE=5><br>

Название или идентификатор (например, дата) экзамена:

<INPUT TYPE=RESET> </form></body></html> END_OF_HTML }

Эта функция выводит форму, позволяющую пользователю выбрать предмет для экзамена, а также количество вопросов и название. Для вывода списка имеющихся предметов выполняется запрос к таблице предметов. При выполнении в DBI запроса SELECT он должен быть сначала подготовлен, а затем выполнен. Функция DBI::prepare полезна при работе с некоторыми серверами баз данных, позволяющими осуществить операции над подготовленными запросами, прежде чем выполнить их. Для MySQL это означает лишь запоминание запроса до вызова функции DBI:: execute .

Результаты работы этой функции посылаются функции add2, как показано ниже:

Листинг 5.21. Продолжение скрипта test.pl

sub add2 {

my $subject = param('subjects');

my $num = param('num');

$name = param('name') if param('name');

my $out = $dbh->prepare("select name from subject where

id=$subject");

$out->execute;

my ($subname) = $out->fetchrow_array;

print header, start_html('title'=>"Создание экзамена по предмету $subname", 'BGCOLOR'=>'white');

print <<END_OF_HTML;

<H1> Создание экзамена по предмету $subname</h1> <h2>$name</h2>

Введите количество баллов за каждый правильный ответ.

Сумма баллов не обязательно должна равняться 100.

<Р> END_OF_HTML

for (1.,$num) {

print qq%$_: <INPUT NAME="q$_" SIZE=3> %;

if (not $_ % 5) { print "<br>\n", }

}

print <<END_OF_HTML;

<P>Введите текст экзамена:<br>

</textarea><P>

</form></body></html>

END_OF_HTML

}

Эта функция динамически генерирует форму для экзамена, основываясь на параметрах, введенных в предыдущей форме. Пользователь может ввести количество баллов для каждого вопроса экзамена и полный текст самого экзамена. Выходные данные этой функции посылаются завершающей функции add3, как показано ниже:

Листинг 5.21. Продолжение скрипта test.pl

sub add3 {

my $subject = param('subjects');

my $num = param('num');

$name = param('name') if param('name');

my $qname;

($qname = $name) =" s/'/\\'/g;

my $q1 = "insert into test (id, name, subject, num)

values ("'', $qname', $subject, $num)";

my $in = $dbh->prepare($q1);

$in->execute;

# Извлечем значение ID , которое MySQL создал для нас

my $id = $in->insertid,

my $query = "create table t$id (id INT NOT NULL, ";

my $def = "insert into t$id values ( 0, ";

my $total = 0;

my @qs = grep(/"q\d+$/,param);

foreach (@qs) {

$query = $_ " INT,\n',

my $value = 0,

$value = param($_) if param($_);

$def = '$value, ";

$total += $value; }

$query = "total INT\n)"; $def = "$total)',

my $in2 = $dbh->prepare($query);

$in2->execute;

my $in3 = $dbh->prepare($def);

$in3->execute,

open(TEST,">teach/tests/$id") or die('A: $id $' ),

print TEST param('test'), \n",

close TEST;

print header, start_html('title =>'Экзамен создан', ;'BGCOLOR'=>'white');

print <<END_OF_HTML; <Н1>Экзамен создан</H1> <p>Экзамен создан<P>

<A HREF='..'>Перейти</а> на домашнюю страницу 'В помощь учителю'.<br>

<А HREF='test.pl'>перейти</a> на главную страницу экзаменов.<br>

<А HREF= 'test.pl'?action=add'>Добавить</a> следующий экзамен

</body></html>

END_OF_HTML

}

MysqlPerl.Монти Видениус, автор MySQL, написал также и интерфейс Perl к MySQL, Mysql.pm. Mysql.pm входит составной частью в пакет msql-mysql-modules Йохена Видмана (Jochen Wiedmann).

Чтобы показать некоторые функции Mysql.pm, вернемся к примеру с экзаменами. Займемся таблицей предметов. Ее структура описана выше.

Чтобы продемонстрировать, как работает Mysql.pm, мы подробно изучим ту часть subject.pl, которая позволяет пользователю добавлять предметы. Операция «add» (добавление) была так же разбита на две отдельные функции. Первая функция - изменения, выводит форму, позволяющую ввести название предмета и фамилию преподавателя:

Скрипт subject.pl

#!/usr/bin/perl -w

use strict;

use CGI qw(:standard);

my $output = new CGI;

use_named_parameters(1);

# Использовать модуль MySQL

use MySQL;

# используется localhost и открывается база данных 'teach',

my $dbh = Mysql->connect(undef,'teach', 'teacher',undef);

# Операция добавления распределена между двумя функциями. Add -

# выводит пользователю форму шаблона для создания нового предмета,

&add if not (param('action'));

foreach(param('action')){

/add2/ and do{&add2; last;};

}

sub add {

print header, start_html('title'=>'Добавить предмет','BGCOLOR'=>'white');

print <<END_OF_HTML;

<H1>Добавить предмет</h1> <form METHOD=POST ACTION="subject.pl"> <P>Название предмета:<input TYPE=TEXT size=40 name="name" ><br>

Фамилия учителя:   <input TYPE=TEXT size=40 name="teacher" ><br><INPUT TYPE=HIDDEN NAME="action" VALUE="add2">

<INPUT TYPE=SUBMIT VALUE="Следующая страница "><INPUT TYPE=RESET> </form><p><A HREF="..">Перейти</a> к домашней странице Помощи учителю. </body></html>

END_OF_HTML

}

Функция проверяет, не имеют ли какие-либо поля предустановленные значения. Это придает функции дополнительную гибкость, позволяя использовать ее как шаблон для классов со значениями по умолчанию, возможно, генерируемыми какой-либо другой CGI-программой.

Значения, полученные в первой части процесса добавления, передаются обратно CGI-программе для использования в функции add2. Функция add2 сначала проверяет, существует ли уже предмет. Если существует, то пользователю посылается сообщение об ошибке, и он может ввести другой предмет.

Листинг 5.22. Продолжение скрипта students.pl

sub add2 {

my $name = param('name');

my $query_name = "'".$name."'";

# Строим запрос для проверки существования предмета,

# Если введена фамилию учителя, отдельно проверяем фамилию,

# поскольку могут быть два курса с одинаковым названием, но

# разными учителями,

my ($teacher, $query_teacher, $query);

$query ="select id, name ";# from subject where name=$query_name";

if (param('teacher')) {

$teacher = param('teacher'); $query.=", teacher";

$query_teacher = "'".$teacher."'"; }

$query .= " from subject where name=$query_name";

if (param('teacher')) {$query .= " and teacher=$query_teacher";}

# Теперь посылаем запрос серверу MySQL.

my $out = $dbh->query($query);

# Проверяем значение $out->numrows, чтобы узнать, были ли

# возвращены какие-либо строки. Если были, то мы выходим с

# сообщением, что предмет уже существует

if ($out->numrows)

{ # Печать страницы 'Предмет уже существует'.

print header, start_html('title' =>'Предмет уже существует', 'BGCOLOR'=>'white');

print <<END_OF_HTML;

<h1>Предмет уже существует</H1><A HREF='..'>Перейти</a> на домашнюю страницу 'В помощь учителю'.<br>

<A HREF= 'subject.pl'?action=add'>Добавить</a> следующий предмет

</body></html>

END_OF_HTML

} else {

$out = $dbh->query("select * from subject");

my ($id) = $out->fetchrow+1;

# Теперь вводим информацию в базу данных, используя

# полученное число в качестве ID

$query = "INSERT INTO subject (id, name, teacher) VALUES ($id, $query_name, $query_teacher)"; $dbh->query($query);

print header, start_html('title' =>'Предмет создан', 'BGCOLOR'=>'white');

print <<END_OF_HTML;

<h1>Предмет создан</H1><A HREF='..'>Перейти</a> на домашнюю страницу 'В помощь учителю'.<br>

<A HREF= 'subject.pl'?action=add'>Добавить</a> следующий предмет

</body></html>

END_OF_HTML

}

<2728 29 30 31 32 33 >

Дата добавления: 2015-11-04; просмотров: 701;