Шрифт:
$dbh -> do(«SET NAMES cp1251»);
Совет
Установка кодировки перед началом работы с данными позволяет избежать некорректного отображения и сохранения в базе данных символов русского алфавита. Была выбрана кодировка Windows (CP-1251), так как именно в ней был создан сценарий input.pl.
Привязка параметров используется в случае, когда необходимо выполнить динамическую SQL-команду, содержащую переменные величины. В тексте команды эти величины нужно заменить символами? а их значения передать в качестве параметров метода do. Например, пусть имя, телефон и адрес клиента хранятся, соответственно, в переменных $name, $phone и $address. Записать эти данные в базу можно с помощью вызова метода
$dbh – > do(«INSERT INTO Customers (name,phone,address)
VALUES (?,?,?)»,
undef,$name,$phone,$address);Перед выполнением SQL-команды INSERT вместо знаков вопроса будут подставлены значения переменных $name, $phone и $address (неиспользуемому параметру было присвоено значение undef). При этом интерпретатор Perl автоматически вставляет кавычки там, где это необходимо, экранирует спецсимволы и т. п.
В качестве примера использования метода do рассмотрим форму саморегистрации нового клиента, в которой клиент может ввести свое имя, телефон и адрес. Помимо метода do, для создания такого приложения нам потребуется дополнительный модуль Perl CGI и функция param, которая возвращает список значений, введенных пользователем в поля формы. Функция param позволяет объединить вывод формы и обработку введенных данных в одном сценарии: если функция вернула непустое значение, значит, нужно обработать введенные пользователем данные, а если пустое – отобразить форму для ввода данных. Если же в качестве аргумента функции param указывается имя поля формы, то функция вернет значение из этого поля.
Итак, в папке cgi-bin корневой папки XAMPP создайте файл input.pl, содержащий код, представленный в листинге 4.11.
Листинг 4.11. Ввод данных#!”C:\Program Files\xampp\perl\bin\perl.exe”
print “Content-type: text/html; charset=windows-1251\n\n”;
#Подключаем модуль DBI
use DBI;
#Подключаем модуль CGI
use CGI \':all\
#Если список значений формы пуст, выводим форму
if(!param)
{
print «
<html>
<head>
<title>Работа с MySQL</title>
</head>
<body>
<h1>Пожалуйста, заполните следующие поля:</h1>
<!– Создаем форму для ввода данных –>
<!– Обрабатывать введенные данные будет этот же сценарий – input.pl –>
<form method=\'post\' action=\'input.pl\'>
<table>
<!– Создаем поле для ввода имени заказчика –>
<tr>
<td>Ваше имя:</td>
<td><input type=\'text\' name=\'CustomerName\' value=\'\'></td>
</tr>
<!– Создаем поле для ввода телефона заказчика –>
<tr>
<td>Телефон:</td>
<td><input type=\'text\' name=\'CustomerPhone\' value=\'(495)\'></td>
</tr>
<!– Создаем поле для ввода адреса заказчика –>
<tr>
<td>Адрес:</td>
<td><input type=\'text\' name=\'CustomerAddress\' value=\'\'></td>
</tr>
</table>
<br>
<!– Создаем кнопку для подтверждения данных –>
<input type=\'submit\' value=\'Отправить\'>
</form>
</body>
</html>”;
}
#Если список значений формы непуст, сохраняем эти значения
else
{
#Подсоединяемся к базе данных
my $dbh = DBI ->
connect(«DBI:mysql:database=SalesDept;host=localhost»,
«username»,»userpassword»);
if (!$dbh)
{
print «Ошибка доступа к базе данных. Приносим свои извинения”;
die;
}
#Устанавливаем кодировку CP-1251
$dbh->do(«SET NAMES cp1251»);
#Записываем данные о клиенте в таблицу Customers (Клиенты)
#param(\'CustomerName\'), param(\'CustomerPhone\') и param(\'CustomerAddress\') –
#значения, полученные из полей формы с именами
#CustomerName, CustomerPhone и CustomerAddress
my $insert = $dbh -> do(«INSERT INTO Customers (name,phone,address)
values (?, ?, ?)»,
undef,
param(\'CustomerName\'), param(\'CustomerPhone\'), param(\'CustomerAddress\'));
if(!$insert)
{
print “Ошибка доступа к базе данных. Приносим свои извинения”;
die;
}
#Отсоединяемся от базы данных
$dbh->disconnect;
#Выводим итоговое сообщение
print «<html>
<head>
<title>Работа с MySQL</title>
</head>
<body>
<h3>Поздравляем! Регистрация завершена успешно</h3>
</body>
</html>”;
}Для запуска этого приложения наберите в адресной строке браузера адресНа экране появится веб-форма (рис. 4.22).
Введите в поля формы какие-либо значения и нажмите кнопку Отправить. Для обработки введенных данных вызовется тот же самый сценарий input.pl, однако на этот раз будет выполнена вторая часть сценария, следующая после ключевого слова else (см. листинг 4.11). Эта часть сценария выполняет SQL-команду INSERT. Если команда была выполнена успешно, вы увидите на странице следующее сообщение (рис. 4.23).
Если же при подключении к базе данных или при выполнении SQL-команды произошла ошибка, вы увидите на странице сообщение «Ошибка доступа к базе данных. Приносим свои извинения». Чтобы получить подробную информацию об ошибке, откройте корневую папку XAMPP, в ней – папку apache, затем папку logs. В папке logs откройте с помощью программы Блокнот файл error.log. В одной из последних строк этого файла вы найдете описание ошибки.
Если же вы используете Perl-хостинг и не имеете доступа к журналу ошибок, то в обработке ошибок вам поможет следующий подраздел.
Обработка ошибок
Вы уже знаете, что при подключении к базе данных можно задать режим обработки ошибок. Режим определяется двумя параметрами:
• PrintError. Если этому параметру присвоено значение 1, то при возникновении ошибки выводится сообщение об ошибке;
• RaiseError. Если этому параметру присвоено значение 1, то при возникновении ошибки выводится сообщение об ошибке и сценарий завершает работу.
Чтобы реализовать собственный алгоритм обработки ошибок, отключите системную обработку ошибок, присвоив обоим параметрам значение 0, например:my $dbh = DBI -> connect(«DBI:mysql:database=SalesDept;host=localhost»,
“username”,”userpassword”,
{PrintError=>0,RaiseError=>0});Для получения информации о возникшей ошибке предназначены методы
errstr
и
err
Метод errstr возвращает описание ошибки, произошедшей при выполнении последней SQL-команды, или значение undef, если команда была выполнена успешно. Метод mysql_errno возвращает код ошибки, произошедшей при выполнении последней SQL-команды, или undef, если команда была выполнена успешно.
Значения, возвращаемые методами errstr и err, не рекомендуется отображать на веб-странице, чтобы не раскрывать информацию об архитектуре приложения. Вместо этого вы можете записывать сведения об ошибке в файл или отсылать по электронной почте разработчику или администратору приложения.
Приведу пример обработки возникшей ошибки – запись ошибки в файл:my $dbh = DBI -> connect(«DBI:mysql:database=SalesDept;host=localhost»,
«username»,»userpassword»,
{PrintError=>0,RaiseError=>0});
if(!$dbh)
{
#Формируем сообщение об ошибке
my $logmessage = localtime.”
«.DBI->err.» «.DBI->errstr.»\n»;
#Открываем log-файл
my $res = open(my $log, «>>», «mysqlerror.log»);
if(!$res)
{
print “Ошибка при открытии журнала”;
die;
};
#Записываем в файл сообщение об ошибке
print $log $logmessage;
#Закрываем файл
$res = close $log;
if(!$res)
{
print “Ошибка при закрытии журнала”;
die;
}
#Выводим сообщение об ошибке на странице
print “Ошибка доступа к базе данных.
Приносим свои извинения”;
#Завершаем работу
die;
}Если при подключении к базе данных произойдет ошибка, в файл mysqlerror. log, находящийся в папке cgi-bin, будет записано сообщение, содержащее дату и время, номер и описание ошибки. Например, если база данных SalesDept (Отдел продаж) была удалена, в файле появится запись вида Sat Jun 28 11:15:00 2008 1049 Unknown database \'salesdept\'.
Далее вы узнаете о том, каким образом приложение Perl работает с данными, полученными из БД с помощью запроса.
Выполнение запроса к базе данных
Для поиска информации в базе данных необходимо последовательно вызвать методыprepare(«<Текст запроса>»)
и
execute
Метод prepare обеспечивает подготовку запроса для последующего выполнения и возвращает дескриптор команды – указатель на объект, реализующий все операции, связанные с запросом: выполнение запроса, обработку результатов запроса и др. Далее вызывается метод execute дескриптора команды, который выполняет запрос и возвращает значение TRUE в случае успеха или значение undef в случае ошибки. Например, чтобы получить все данные из таблицы Products (Товары), выполните команды