АРI для языка Perl.

Может пригодиться:

Реклама:

Соединение c базой данных программы на языке Perl осуществляется c использовaнием DBI (Database Interface) и DBD (Database Driver). Для работы требуется Perl 5.6.0 или более поздняя версия языка. Если средства DBI еще не инсталлированы, используйте cpan для их копирования и установки.

shell> cpan
cpan> install DBI

Если вы работаете в системе Windows и в вашем распоряжении имеется пакет ActivePerl, используйте для инстaлляции модулей Perl сценарий ррт.bаt.

C:\perl\bin> ppm.bat
ррт> install DBI

Для того чтобы добавить драйвер базы данных MysQL, надо инсталлировать модуль DBD :: mysgl.

cpan> install DBO::mysgl

Сценарий Per1, использующий MysQL DBD, содержит приведенную ниже строку (обратите внимание на регистр символов в имени Mysgl, которое применяется в Per1 API).

use Mysgl;



Соединение c базой данных MySQL

$dbh = мysgl->connect(узел, база,
пользователь, пароль);

Метод connect объекта Mysg1 возвращает дескриптор базы данных. Для соединения c базой данных на локальном узле в качестве первого параметра используется значение undef. Единственный метод DBI вызывает функции mysgl_init () и mysgl_ real connect () базового С API.



Выполнение запроса

$sth = $dbh->query(запрос);

Для того чтобы выполнить запрос, вызовите метод query (), доступный посредством дескриптора базы данных. B качестве параметра методу передается SQL-выражение. B результате выполнения метода возвращается дескриптор выражения.



Извлечение данных из набора результатов

@row = $sth->fetchrow;

Метод fеtchrow (), вызываемый посредством дескриптора выражения, возвращает строку данных в виде массива. При первом вызове fetchrow () возвращается первая строка из набора данных, каждый последующий вызов возвращает очередную строку. Если данные исчерпаны, метод возвращает значение NULL.

Методы numrows () и numfields () позволяют определить число строк и столбцов, доступных посредством дескриптора выражения.



Вывод сообщений об ошибках

$errno = $dbh->errno;
$errstr = $dbh->errstr;

Дескриптор базы данных предоставляет доступ к методам еrrnо и еrrstr, которые возвращают соответственно номер ошибки и сообщение для последнего запроса, выполненного в рамках данного соединения. Для того чтобы определить ошибки соединения, используются одноименные методы объекта Mysgl.

$errno = Mysgl->errno;
$errstr = мysgl->errstr;



Завершение соединения

Не существует специального метода DBI, предназначенного для закрытия соединения c базой данных. Ресурсы автоматически освобождаются при завершении работы программы. Если же вы хотите освободить ресурсы раньше, вам надо вызвать посредством дескриптора команду undef.



Пример сценария нa языке Perl

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

Листинг 8.2. Выполнение запроса с помощью Perl DBI

#!/usr/bin/perl
use Mysgl;
/* Соединение c базой данных */
$dbh = муsgl->connect(undef, "dbname",
"username", "password")
or die ("Failed to connect to database: Error "
. Mysgl->errstr);
/* Выполнение запроса */
$sgl_statement = "SELECT book_id, cond, title
FROM book";
$sth = $dbh->query($sg1 statement)
or die ("Error executing query: Error " .
$dbh->errno);
/* Перебор в цикле набора результатов */
while (@row = $sth->fetchrow) {
for($i=0; $i<$sth->numfields; $i++) {
print $row[$i] . "\t"
}
print "\n";
}

Выходные данные имеют тот же вид, что и при выполнении программы, код которой приведен в листинге 8.1.






Пер. с англ. - М.: ООО "И.Д.Вильямс", 2006.

Спонсор сайта:

Реклама: