Страница 169 из 250 Необязательный параметр port по умолчанию принимает значение 3306. Режим обработки ошибок мы обсудим в подразделе «Обработка ошибок». Например, вызов метода my $dbh = DBI —» my $dbh = DBI -> connect(«DBI:mysql:database=SalesDept;host=localhost», "username","userpassword"); осуществляет подключение к серверу MySQL, работающему на локальном компьютере, используя имя пользователя username и пароль userpassword. При этом база данных SalesDept выбирается в качестве текущей. Дескриптор соединения сохраняется в переменной $dbh. Совет В целях защиты от несанкционированного доступа рекомендуется подключаться к базе данных не от имени пользователя root, а от имени специально созданного пользователя с минимально необходимыми правами доступа. О регистрации пользователей и настройке прав далее будет рассказано подробно. После окончания работы с базой данных отключимся от нее с помощью метода disconnect(); Рассмотрим пример приложения, которое подключается к базе данных и выводит диагностическое сообщение. Создайте в папке cgi-bin корневой папки XAMPP файл connect.pl и введите в него код, представленный в листинге 4.10. Листинг 4.10. Подключение к базе данных #!»C:\Program Files\xampp\perl\bin\perl.exe» print «Content-type:text/html; charset=windows-1251\n\n»; #Подключаем модуль DBI use DBI; #Подсоединяемся к базе данных my $dbh = DBI -> connect("DBI:mysql:database=SalesDept;host=localhost", "username","userpassword"); if(!$dbh) { print("Ошибка доступа к базе данных. Приносим свои извинения"); } else { print "Подключение выполнено успешно"; } #Отсоединяемся от базы данных $dbh->disconnect(); Сохраните файл connect.pl, а затем наберите в адресной строке браузера адрес http:// localhost/cgi-bin/connect.pl. При успешном подключении на веб-странице появится соответствующее сообщение (рис. 4.21). 173
|