Виктор Гольцман - MySQL 5.0. Библиотека программиста

В последующих примерах мы будем использовать пакет XAMPP, установку которого мы описывали в подразделе «Установка пакета XAMPP». Кроме того, нам потребуются дополнительные модули Perl DBI (Database Interface – интерфейс к базе данных) и Perl CGI (Common Gateway Interface – стандартный интерфейс между сценарием и веб-сервером). Об их установке вы узнаете из следующего подраздела.

Установка дополнительных модулей Perl

Чтобы установить модули Perl DBI и Perl CGI, выполните следующие действия.

1. Скачайте дистрибутив пакета Perl Add-Ons. Для этого на веб-странице http://www.apachefriends.org/en/xampp-windows.html найдите раздел XAMPP for Windows Add-Ons и в подразделе Perl щелкните на ссылке Installer.

2. После загрузки файла xampp-win32-perl-addon-xxx-xxx-installer. exe запустите его, дважды щелкнув на его значке.

3. Выберите язык установки Russian (рис. 4.15) и нажмите кнопку OK.

Рис. 4.15.Выбор языка установки

4. В начальном окне мастера установки (рис. 4.16) нажмите кнопку Далее.

5. В окне выбора папки установки (рис. 4.17) по умолчанию предлагается корневая папка XAMPP. Ничего не меняя, нажмите кнопку Далее.

6. После окончания установки нажмите кнопку Готово (рис. 4.18).

Итак, дополнительные модули Perl установлены. Теперь мы можем приступить к созданию приложений Perl.

Тестирование Perl

Чтобы проверить корректность функционирования интерпретатора Perl, создайте простейшее Perl-приложение. Для этого выполните следующие действия.

1. Запустите стандартную программу Windows Блокнот (Пуск → Все программы → Стандартные → Блокнот).

#!»C:\Program Files\xampp\perl\bin\perl.exe»

print «Content-type: text/html; charset=windows-1251\n\n»;

print “Работа с MySQL”;

3. Для сохранения файла нажмите комбинацию клавиш Ctrl+S. В стандартном окне Windows Сохранить как откройте корневую папку XAMPP, а в ней – папку cgi-bin. Введите имя файла: test.pl и нажмите кнопку Сохранить.

4. Запустите Internet Explorer (Пуск → Все программы → Internet Explorer) или любой другой браузер. В адресной строке браузера введите следующий адрес: http:// localhost/cgi-bin/test.pl. Появление текста «Работа с MySQL» (рис. 4.20) на вебстранице означает, что Perl-приложения выполняются нормально.

Рис. 4.20.Результат выполнения приложения

Аналогичная последовательность действий используется для создания всех последующих сценариев Perl в данном разделе. Приступим к разработке приложения, взаимодействующего с базой данных MySQL.

Подключение к базе данных

use DBI;

Для подключения к базе данных используется метод

connect(«DBI:mysql:database=<���Имя базы данных>;host=<���Имя

хоста>[;port=<���Номер порта>]»,»Имя

Метод connect() создает соединение с базой данных и возвращает дескриптор соединения – указатель на объект, отвечающий за взаимодействие с базой данных и реализующий все методы работы с БД. Если установить соединение не удалось, метод connect() возвращает значение undef.

Например, вызов метода my $dbh = DBI —»

my $dbh = DBI ->

connect(«DBI:mysql:database=SalesDept;host=localhost»,

осуществляет подключение к серверу MySQL, работающему на локальном компьютере, используя имя пользователя username и пароль userpassword. При этом база данных SalesDept выбирается в качестве текущей. Дескриптор соединения сохраняется в переменной $dbh.