Установка Для использования интерфейсов rnSQL и MySQL к модулям DataBase Dependent/DataBase Independent (DBI/DBD) или MsqlPerl и MysqlPerl необходимо иметь следующие компоненты :
Perl 5
В вашей системе должны быть установлены работающие экземпляры Perl 5. Ко времени
написания этой книги последний релиз Perl имел номер 5.005_02. Следует пользоваться по
меньшей мере Perl 5.004, поскольку в более ранних версиях были ошибки , связанные с
защитой . Более подробные сведения о Perl, включая адреса для загрузки , можно найти по адресу :
http://www.perl.com.
DBI
Независимую от базы данных часть модуля DBI/DBD можно загрузить из Comprehensive Perl
Archive Network (CPAN). На момент написания книги последней версией был DBI-0.90. Он
находится на http://www.perl.com/CPAN/authors/id/TIMB/DBI/DBI-l.06.tar.gz.
Data::ShowTable
Модуль Data::ShowTable упрощает отображение больших объемов данных . Это требуется для
модулей Msql-MysqL Последняя версия — Data-ShowTable-З ., ее можно найти по адресу : http://
DBI: :bind_param подставляет в команды действительные значения вместо меток -......*?' (. DBI: :
prepare). Первый аргумент — номер метки -......в команде , нумерация начинается с 1 ( напра -.......). Второй аргумент - подставляемое значение . Необязательный третий аргумент задает тип
подставляемого значения . Это может быть скаляр или ссылка на хэш вида { TYPE => &DBI: :SQL_TYPE }
, где 'SQL_TYPE' - тип параметра . На момент написания этой книги DBI поддерживал SQL-типы
DBI::connect требует по крайней мере три аргумента и необязательный четвертый . Через возвращаемый
описатель выполняются все операции с сервером базы данных . Первый аргумент является источником
данных . Список имеющихся источников можно получить с помощью DBI::data_sources . Для mSQL и
MySQL формат источника данных 'DBI:mSQL:$database:$hostname:$ро rt' и
'DBI:mysql:$database:$hostname:$port' соответственно . Можно опустить :$port при соединении через стан -
порт . Аналогично можно опустить : $hostname; $port при соединении с сервером на локальном узле
с помощью сокета Unix. Имя базы данных указывать обязательно .
Второй и третий аргументы - имя пользователя и пароль для подключения к базе данных . Для mSQL оба
аргумента должны иметь значение 'undef'. Если они заданы как 'undef' при работе с MySQL, то у
пользователя , запустившего программу , должны быть права доступа к требуемым базам данных .
Последний аргумент необязателен и является ссылкой на ассоциативный массив . Данный хэш позволяет
определить некоторые атрибуты соединения . В настоящее время поддерживаются только атрибуты
PrintError, RaiseError и AutoCommit. Для сброса им нужно придать значение 0, для установки - какое -.......истинное значение . По умолчанию PrintError и AutoCommit включены , a RaiseError - сброшен . Поскольку в
данное время ни mSQL, ни MySQL не поддерживают транзакции , атрибут AutoCommit должен быть установлен
(......подробно см . Атрибуты ).
При неудаче соединения возвращается неопределенное значение undef, и в $DBI: errstr помещается ошибка ..
Пример
use DBI;
my $db1 = DBI->connect('DBI:mSQL:mydata',undef,undef);
# Теперь $db1 представляет соединение с базой данных 'mydata' на локальном # сервере mSQL.
my $db2=DBI-> connect ('DBI:mysql:mydata:myserver.com','me','mypassword');
# Теперь $db2 представляет соединение с базой данных 'mydata1 сервера MySQL
# 'myserver.com' через порт по умолчанию .
# При соединении использовались имя пользователя 'me' и пароль 'mypassword'.
my $db3 =. DBI->connect('DBI:mSQL:mydata',undef,undef,{RaiseError => 1});
# Теперь $db3 - такое же соединение , как $db1, за исключением того , что # установлен атрибут 'RaiseError'.
DBI::data_sources
@data_sources = DBI->data_sources($dbd_driver);
DBI::data_sources принимает в качестве аргумента имя модуля DBD и возвращает все имеющиеся для этого
драйверы базы данных в формате , пригодном к использованию в качестве источника данных функцией
DBI:::connect . Программа заканчивает свое выполнение с ошибкой , если задано неверное имя драйвера DBD.
В текущих версиях модулей Msql-Mysql драйвер для mSQL называется 'mSQL', а для MySQL-'mysql'.
Пример
use DBI;
my @msql_data_sources = DBI->data_sources('mSOL');
my @mysql_data_sources - DBI~>data_sources('mysql');
# Должны быть установлены DBD::mSQL и DBD::mysql, иначе # выполнение программы прекратится .
$neat_rows = DBI::dump_results($statement_handle, $maxlen, $line_sep, $f i el d_sep, $f i l e_handle);
DBI:::dump_results выводит содержание описателя команды в удобном и упорядоченном виде , применяя к
каждой строке DBI::neat_string. Функцию удобно использовать для быстрой проверки результатов за -.......во время разработки программы . Единственный обязательный аргумент - описатель команды .
Второй аргумент , если имеется , задает максимальный размер полей в таблице , по умолчанию равный 35.
Третий аргумент задает строку , используемую для разграничения строк данных , по умолчанию - \.
Четвертый аргумент задает строку , используемую для разделения значений полей в строке , по умолчанию
используется запятая . Последний аргумент задает ссылку на глобальный описатель файла , в который
выводятся результаты . По умолчанию это STDOUT. Если невозможно прочесть описатель команды ,
возвращается значение undef.
Пример
use DBI;
my $db = DBI->connect( 'DBI:mSQL:mydata', undef, undef);
my $query = "SELECT name, date FROM myothertable";
DBI::execute выполняет SQL-команду , содержащуюся в описателе команды . Для запроса , не являющегося
SELECT, функция возвращает число измененных строк . Функция возвращает -, если число строк неиз -........ Для запроса типа SELECT при успехе возвращается истинное значение . Если заданы аргументы , они
используются для подстановки имеющихся в команде меток - (. DBI:::p r epar e).
Пример
use DBI;
my $db = DBI->connect('DBI:mSQL:mydata',undef,undef);
my $statement_handle = $db->prepare("SELECT * FROM mytable");
my $statementjiandle2 = $db->prepare("SELECT name, date FROM myothertable
WHERE name like ?");
$statement_handle->execute;
# Выполнена первая команда . К значениям можно # обращаться через описатель .
$statement_handle->execute("J%");
# Выполнена вторая команда следующего содержания :
# SELECT name, date FROM myothertable WHERE name like 'J%'
DBI::fetchrow_hashref работает так же , как DBI::fetchrow_arrayref , но возвращает ссылку на
ассоциативный , а не на обычный массив . Ключами хэша являются имена полей , а значениями - значения в
этой строке данных .
Пример
use DBI;
my $db = DBI->connect('DBI:mSQL:mydata', undef, undef);
my $query = "SELECT * FROM mytable";
my $mytable_output = $db->prepare($query);
$mytable_output->execute;
my %row1 = $mytable_ouput->fetchrow_hashref;
my @field_names = keys %row1;
# @field_names содержит - теперь имена всех полей в запросе .
# Это делается только один раз . Во всех следующих строках будут те же поля .
my @row1 = values %row1;
DBI::finish
$result = $statement_handle->finish;
DBI::finish освобождает все данные в описателе команды , чтобы можно было уничтожить описатель или
снова подготовить его . Некоторым серверам баз данных это необходимо для освобождения соответству -
ресурсов . DBD::mSQL и DBD::mysql не нуждаются в этой функции , но для переносимости кода
следует использовать ее по окончании работы с описателем команды . Функция возвращает неопределенное
значение undef, если описатель не удается освободить .
Пример use DBI;
my $db - DBI->connect('DBI:mysql:mydata', 'me','mypassword');
my $query = "SELECT * FROM mytable";
my $mytable_output - $db->prepare($query);
$mytable_output->execute;
$mytable_output->finish;
# Теперь можно переназначить $mytable_output или подготовить для него # другую команду SQL.
DBI::func
$handle->func(@func_arguments, $func_name);
@dbs = $db->func("$hostname", '_ListDBs');
@dbs = $db->func("$hostname:Sport", '_ListDBs');
@tables = $db->func('._ListTables');
$result = $drh~>func( $database, '_CreateDB' );
$result = $drh->func( $database, '_DropDB' );
DBI::func вызывает специализированные непереносимые функции , включенные в различные драйверы
DBD. Она используется с описателем базы данных или описателем команды , в зависимости от назначения
специализированной функции . По возможности следует использовать равносильную переносимую функцию .
При использовании специализированной функции сначала передаются ее аргументы как скаляр , а затем - имя.функции . DBD::mSQL и DBD::mysql реализуют следующие функции :
_ListDBs
Функция _ListDBs принимает имя узла и необязательный номер порта и возвращает список
имеющихся у сервера баз данных . Лучше использовать переносимую функцию DBI::data_sources .
_Listlat)les
Функция _ListTables возвращает список таблиц , имеющихся в текущей базе данных .
_CreateDB
Функция _CreateDB принимает в качестве аргумента имя базы данных и пытается создать эту базу
данных на сервере . Для работы с этой функцией необходимо иметь право создания баз данных .
Функция возвращает - в случае неудачи и 0 в случае успеха .
_DropDB
Функция _DropDB принимает в качестве аргумента имя базы данных и пытается удалить с сервера
эту базу данных . Данная функция не выводит пользователю сообщений и при успешном выполнении
удаляет базу данных навсегда . Для работы с этой функцией необходимо иметь право удаления баз
данных . Функция возвращает - в случае неудачи и 0 в случае успеха .
Пример
use DBI;
my $db = DBI->connect('DBI:mysql:mydata','me 1 , 'mypassword');
my @tables = $db->func('_ListTables');
# @tables содержит теперь список таблиц в 'mydata'.
DBI::prepare принимает в качестве аргумента SQL-команду , которую некоторые модули баз данных
переводят во внутреннюю компилированную форму , исполняемую быстрее при вызове DBI:: execute . Эти мо -
DBD ( DBD::mSQL или DBD::mysql) принимают также ссылку на хэш необязательных атрибутов .
Серверы mSQL и MySQL в настоящее время не реализуют концепцию подготовки команд , поэтому DBI::
prepa re просто запоминает команду . По желанию вместо значений данных в команду можно вставить любое
количество символов '?'. Эти символы известны как метки - (placeholders). Функция DBI:
;bincLparam осуществляет подстановку действительных значений вместо меток -. Если по какой -.......причине команду нельзя подготовить , функция возвращает undef.
Пример
use DBI;
my $db = DBI->connect('DBI:mysql:mydata', 'me','mypassword');
my $statement_handle = $db->prepare('SELECT * FROM mytable');
# Теперь эта команда готова к выполнению .
My $statement_handle = $db->prepare(
'SELECT name, date FROM myothertable WHERE name like ?');
# Эта команда будет готова к выполнению после подстановки # с использованием функции DBI::bind_param.
DBI::quote
$quoted_string = $db->quote($string);
DBI : : quote принимает строку для использования в качестве запроса SQL и возвращает ее копию с правильно
расставленными для ввода в запрос кавычками , в том числе расставляя корректные кавычки по концам
строки .
Пример
use DBI;
my $db1 = DBI->connect('DBI:mSQL:mydata',undef,undef);
my $db2 = DBI->connect('DBI:mysql:myotherdata', 'me','mypassword');
my Sstring = "Sheldon's Cycle";
my $qs1 = $db1->quote($string);
# $qs1: 'Sheldon\'s Cycle' ( включая наружные кавычки )
my $qs2 = $db2->quote($string);
# $qs2 : 'Sheldon's Cycle' ( включая наружные кавычки ).
# Теперь обе строки годятся для использования в командах для своих # соответствующих серверов баз данных .
DBI::rows
$number_of_rows = $statement_handle->rows;
DBI: : rows возвращает число строк данных , содержащихся в описателе команды . Для DBD::mSQL и DBD::mysql
эта функция дает точное число для всех команд , включая SELECT. Для многих других драйверов , которые не
хранят в памяти сразу все результаты , эта функция надежно работает только для команд , не являющихся
SELECT. Это следует учитывать при написании переносимых программ . Функция возвращает -, если по
какой -......причине число строк неизвестно . Переменная $DBI: ; rows выполняет ту же задачу .
