Стр. 39

undef в случае ошибки.

...

Примечание

Если SQL-команда была выполнена успешно, но не произвела действий с одной строкой, то метод do() возвращает значение E0E, которое рассматривается как числовое значение 0 и как логическое значение TRUE.

Единственным обязательным параметром метода do() является текст SQL-команды, которую необходимо выполнить. Например, установить кодировку можно следующим образом:

$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 Filesxamppperlinperl.exe”

print “Content-type: text/html; charset=windows-1251 ”;

#Подключаем модуль 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>”;

}

Для запуска этого приложения наберите в адресной строке браузера адрес http://localhost/cgi-bin/input.pl. На экране появится веб-форма (рис. 4.22).

Рис. 4.22. Форма ввода данных

Введите в поля формы какие-либо значения и нажмите кнопку Отправить. Для обработки введенных данных вызовется тот же самый сценарий input.pl, однако на этот раз будет выполнена вторая часть сценария, следующая после ключевого слова else (см. листинг 4.11). Эта часть сценария выполняет SQL-команду INSERT. Если команда была выполнена успешно, вы увидите на странице следующее сообщение (рис. 4.23).

Рис. 4.23. Результат сохранения

Вы читаете MySQL 5.0. Библиотека программиста
Добавить отзыв
ВСЕ ОТЗЫВЫ О КНИГЕ В ИЗБРАННОЕ

0

Вы можете отметить интересные вам фрагменты текста, которые будут доступны по уникальной ссылке в адресной строке браузера.

Отметить Добавить цитату

Материалы, присутствующие на сайте, получены с публичных (широкодоступных) ресурсов. Если вы обладаете авторским правом на какую либо информацию, размещенную на сайте booksonline.com.ua и не согласны с её общедоступностью в будущем, то мы согласны рассмотреть предложения по удалению определенного материала, а также обсудить предложения о договоренностях, разрешающих использовать данный контент. Мы не отслеживаем действия пользователей, которые самостоятельно выкладывают источники текстов, являющиеся объектом вашего авторского права. Все данные на сайт, загружаются автоматически, не проходя заранее отбора с чьей либо стороны, что является нормой в мировом опыте размещения информации в сети интернет.

Не смотря на это, при возникновении у Вас вопросов касательно ссылок на информацию, размещенную на нашем сайте, правообладателями которой Вы являетесь, просим обращаться к нам с интересующим запросом. Для этого требуется переслать е-mail на адрес: [email protected]. В письме настоятельно рекомендуем подать такие сведения : 1.Документальное подтверждение ваших прав на материал, защищённый авторским правом: отсканированный документ с печатью, либо иная контактная информация, позволяющая однозначно идентифицировать вас, как правообладателя данного материала. 2. Прямые ссылки на страницы сайта, которые содержат ссылки на файлы, которые есть необходимость откорректировать.

Все права защищенны booksonline.com.ua

Рейтинг@Mail.ru Яндекс.Метрика Наш сайт в каталоге manyweb.ru