14.10. Выполнение команд SQL с помощью DBI и DBD 515

14.10. Выполнение команд SQL с помощью DBI и DBD

Проблема

Вы хотите направить запрос SQL в систему управления базами данных (например, Oracle, Sybase, mSQL или MySQL) и обработать полученные результаты.

Решение

Воспользуйтесь модулями DBI (DataBase Interface) и DBD (DataBase Driver) от CPAN:

use DBI;

$dbh = DBI->connect(DBI:driver, username, auth, { PrintError => 1, RaiseError 1})

or die "connecting; $DBI;;errstr"; $dbh->do(SQL)

or die "doing; ", $dbh->errstr; $sth = OBI->prepare(SQL)

or die "preparing; ", $dbh->errstr; $sth->execute

or die "executing: ", $sth->errstr; while (@row = $sth->fetchrow array) {

# .,.

$sth->finish; $dbh->disconnect;

Комментарий

DBI является посредником между программой и всеми драйверами, предназначенными для работы с конкретными СУБД. Для большинства операций нужен манипулятор базы данных (в ириведенном выше примере - $dbh).OH ассоциируется с конкретной базой данных и драйвером при вызове DBI->conneGt.

Первый аргумент DBI->Gonnect представляет собой строку, состоящую из трех полей, разделенных двоеточиями. Он определяет источник данных - СУБД, к которой вы подключаетесь. Первое поле всегда содержит символы DBI, а второе - имя драйвера, который вы собираетесь использовать (Oracle, mysql и т. д.). Оставшаяся часть строки передается модулем DBI запрошенному модулю драйвера (например, DBD::mysql) и идентифицирует базу данных.

Второй и третий аргументы выполняют аутентификацию пользователя.

Четвертым, необязательным аргументом является ссылка на хэш с определением атрибутов подключения. Если атрибут PrintError равен true, при каждом неудачном вызове метода DBI будет выдавать предупреждение. Присваивание RaiseError имеет аналогичный смысл, за исключением того, что вместо warn будет использоваться die.

Простые команды SQL (не возвращающие записи данных) могут выполняться методом do манипулятора базы данных. При этом возвращается логическая истина или ложь. Для команд SQL, возвращающих записи данных (например, SELECT), необходимо сначала вызвать метод prepare манипулятора базы данных, чтобы создать манипулятор команды. Далее запрос выполняется методом execute, вызванным для манипулятора команды, а записи извлекаются методами выборки fetchrow arгау или fetchrow hashref (возвращает ссылку на хэш, в котором имя поля ассоциируется со значением).

После завершения работы с базой не забудьте отключиться от нее методом disconnect. Если манипулятор базы данных выходит из области действия без предварительного вызова disconnect, модуль DBI выдает предупреждение. Эта мера предосторожности предназначена для тех СУБД, которые должны возвращать память системе и требуют корректного отключения от сервера. Перед отключением манипулятора базы данных манипуляторы команд должны получить неопределенное значение, выйти из области действия или для них должен быть вызван метод finish. Если этого не сделать, вы получите предупреждение следующего вида:

clisconnect(DBI: :db=HASH(0x9clf84)) invalidates 1 active cursor(s) at -e line 1,

Модуль DBI содержит FAQ (perldoc DBI::FAQ) и стандартную документацию (perldoc DBF). Также существует документация для драйверов конкретных СУБД (например, perldoc DBD::mysql). Прикладной интерфейс DBI не ограничивается простейшим подмножеством, рассмотренным нами; он предоставляет разнообразные возможности выборки результата и взаимодействия со специфическими средствами конкретных СУБД (например, сохраняемыми процедурами). За информацией обращайтесь к документации по модулю драйвера.

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

Пример 14.7. dbusers

#!/usr/bin/perl -w

# dbusers - работа с таблицей пользователей в MySQL use DBI;

use User::pwent;

Sdbh = DBI->connect( DBI:mysqr.dbname:mysqlserver. domain, com:3306, user, password, { RaiseError => 1 }) or die "connecting : SDBI::errstr\n";

Sdbh->do("CREATE TABLE users (uid INT, login CHAR(8))");

Ssqljmt = "INSERT INTO users VALUES( %d, %s )"; while (Suser = getpwent) {

Ssql = sprintf(Ssql fmt, Suser->uid, Sdbh->quote(Suser->name));

$dbh->do(Ssql);

14.11. Программа: ggh - поиск в глобальном журнале Netscape 517

$sth = $dbh->prepare("SELECT * FROM users WHERE uid < 50"): $sth->execute;

while ((@row) = $sth->fetchrow) {

print join(", ", map {defined $ ?$ : "(null)") @row), "\n";

$sth->finish;

$dbh->do("DROP TABLE users"); $dbh->disconnect;

> Смотри также-

Документация по DBI и модулям DBD с CPAN, http: www.hermetica.com/ technologia/perl/DBI/index.html и http: 7m)w.perl/com/CPAN/modules/by-category/ 07 Datahase Interfaces/.

14.11. Программа: ggh - поиск в глобальном журнале Netscape

Следующая программа выводит содержимое файла Netscape history.db. При вызове ей может передаваться полный URL или (один) шаблон. Если программа вызывается без аргументов, она выводит все содержимое журнала. Если не задан параметр -database, используется файл ~/.netscape/history.db.

В каждой выводимой строке указывается URL и время работы. Время преобразуется в формат localtime параметром -localtime (по умолчанию) или в представление gmtime параметром -gmtime или остается в первоначальном формате (параметр -epoch), что может пригодиться для сортировки по дате.

Шаблон задается единственным аргументом, не содержащим ; .

Чтобы вывести данные по одному или нескольким URL, передайте их в качестве аргументов:

% ggh http; www.perl.com/index.html

Вывод сведений о адресах, которые вы помните лишь приблизительно (шаблоном считается единственный аргумент, не содержащий ; ):

% ggh perl

Вывод всех адресатов электронной почты:

% ggh mailto:

Для вывода всех посещенных сайтов со списками FAQ используется шаблон Perl с внутренним модификатором /1:

% ggh -regexp (?i)\bfaq\b