SQLite - Perl

Установка

SQLite3 можно интегрировать с Perl с помощью модуля Perl DBI. Модуль Perl DBI — это модуль доступа к базам данных для языка программирования Perl. Он определяет набор методов, переменных и правил, которые обеспечивают стандартный интерфейс к базе данных.

Ниже показаны простые шаги по установке модуля DBI на машине Linux/UNIX:

$ wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.625.tar.gz
$ tar xvfz DBI-1.625.tar.gz
$ cd DBI-1.625
$ perl Makefile.PL
$ make
$ make install

Если вам нужно установить драйвер SQLite для DBI, можно выполнить следующие шаги для его установки:

$ wget http://search.cpan.org/CPAN/authors/id/M/MS/MSERGEANT/DBD-SQLite-1.11.tar.gz
$ tar xvfz DBD-SQLite-1.11.tar.gz
$ cd DBD-SQLite-1.11
$ perl Makefile.PL
$ make
$ make install

API интерфейса DBI

Ниже приведены важные программы DBI, которые могут удовлетворить ваши потребности при использовании базы данных SQLite в программах на Perl. Для получения более подробной информации обратитесь к официальной документации Perl DBI.

Порядковый номер	API и описание
1	DBI->connect($data_source, "", "", \%attr) Устанавливает соединение с базой данных или сеанс для запрошенного $data_source. Если соединение успешно, возвращает объект дескриптора базы данных. Источник данных имеет следующий вид:DBI:SQLite:dbname='test.db'Здесь SQLite — имя драйвера SQLite, а test.db — имя файла базы данных SQLite. Если файлу с именемfilenameприсвоено значение':memory:'тогда он создаст базу данных в оперативной памяти в RAM, которая будет существовать только в течение сеанса. Если имя файла filename является фактическим именем файла устройства, будет предпринята попытка открыть файл базы данных с использованием значения этого параметра. Если файла с таким именем не существует, будет создан новый файл базы данных с таким именем. Вы можете оставить второй и третий параметры пустыми строками, а последний параметр используется для передачи различных атрибутов; подробности см. в объяснении примера ниже.
2	$dbh->do($sql) Эта подпрограмма подготавливает и выполняет простой SQL-запрос. Она возвращает количество затронутых строк или undef, если возникает ошибка. Возвращаемое значение -1 означает, что количество строк неизвестно, неприменимо или недоступно. Здесь $dbh — это дескриптор, возвращённый вызовом DBI->connect().
3	$dbh->prepare($sql) Эта подпрограмма подготавливает запрос для последующего выполнения ядром базы данных и возвращает объект дескриптора запроса.
4	$sth->execute() Эта подпрограмма выполняет всю обработку, необходимую для выполнения подготовленного запроса. Она возвращает undef, если возникает ошибка. При успешном выполнении она всегда возвращает true независимо от количества затронутых строк. Здесь $sth — это дескриптор запроса, возвращённый вызовом $dbh->prepare($sql).
5	$sth->fetchrow_array() Эта подпрограмма извлекает следующую строку данных и возвращает её в виде списка, содержащего значения каждого поля. В этом списке поля со значением Null возвращаются как значения undef.
6	$DBI::err Это эквивалентно $h->err. Здесь $h — это дескриптор любого типа, например $dbh, $sth или $drh. Эта подпрограмма возвращает код ошибки ядра базы данных из последнего вызванного метода драйвера.
7	$DBI::errstr Это эквивалентно $h->errstr. Здесь $h — любой тип дескриптора, например $dbh, $sth или $drh. Эта процедура возвращает сообщение об ошибке ядра базы данных от последнего вызванного метода DBI.
8	$dbh->disconnect() Эта процедура закрывает соединение с базой данных, ранее открытое вызовом DBI->connect().

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

Следующий код Perl показывает, как подключиться к существующей базе данных. Если база данных не существует, она будет создана, и в конце будет возвращён объект базы данных.

#!/usr/bin/perl

use DBI;
use strict;

my $driver   = "SQLite"; 
my $database = "test.db";
my $dsn = "DBI:$driver:dbname=$database";
my $userid = "";
my $password = "";
my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) 
                      or die $DBI::errstr;

print "Opened database successfully\n";

Теперь давайте запустим вышеуказанную программу, чтобы создать нашу базу данных в текущем каталоге.test.dbПри необходимости вы можете изменить путь. Сохраните приведённый выше код в файл sqlite.pl и выполните его, как показано ниже. Если база данных успешно создана, будет отображено сообщение, подобное показанному ниже.

$ chmod +x sqlite.pl
$ ./sqlite.pl
Open database successfully

Создание таблицы

Следующий фрагмент кода Perl используется для создания таблицы в ранее созданной базе данных:

#!/usr/bin/perl

use DBI;
use strict;

my $driver   = "SQLite";
my $database = "test.db";
my $dsn = "DBI:$driver:dbname=$database";
my $userid = "";
my $password = "";
my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 })
                      or die $DBI::errstr;
print "Opened database successfully\n";

my $stmt = qq(CREATE TABLE COMPANY
      (ID INT PRIMARY KEY     NOT NULL,
       NAME           TEXT    NOT NULL,
       AGE            INT     NOT NULL,
       ADDRESS        CHAR(50),
       SALARY         REAL););
my $rv = $dbh->do($stmt);
if($rv < 0){
   print $DBI::errstr;
} else {
   print "Table created successfully\n";
}
$dbh->disconnect();

Когда вышеуказанная программа будет выполнена, онаtest.dbсоздаст в ней таблицу COMPANY и отобразит следующее сообщение:

Opened database successfully
Table created successfully

Примечание:Если вы столкнётесь со следующей ошибкой в любой операции: если вы увидите следующую ошибку в любой из операций:

DBD::SQLite::st execute failed: not an error(21) at dbdimp.c line 398

В этом случае откройте доступный файл dbdimp.c в установке DBD-SQLite, найдите sqlite3_prepare()функцию и измените её третий параметр с 0 на -1. Наконец, используйтеmakeиmake installустановите DBD::SQLite, и проблема будет решена. Функцию sqlite3_prepare() измените так, чтобы её третий аргумент был -1 вместо 0. Наконец, установите DBD::SQLite с помощью make и выполните make install чтобы решить проблему.

Операция INSERT

Следующая программа Perl показывает, как создать записи в таблице COMPANY, созданной выше:

#!/usr/bin/perl

use DBI;
use strict;

my $driver   = "SQLite";
my $database = "test.db";
my $dsn = "DBI:$driver:dbname=$database";
my $userid = "";
my $password = "";
my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 })
                      or die $DBI::errstr;
print "Opened database successfully\n";

my $stmt = qq(INSERT INTO COMPANY (ID,NAME,AGE,ADDRESS,SALARY)
      VALUES (1, 'Paul', 32, 'California', 20000.00 ));
my $rv = $dbh->do($stmt) or die $DBI::errstr;

$stmt = qq(INSERT INTO COMPANY (ID,NAME,AGE,ADDRESS,SALARY)
      VALUES (2, 'Allen', 25, 'Texas', 15000.00 ));
$rv = $dbh->do($stmt) or die $DBI::errstr;

$stmt = qq(INSERT INTO COMPANY (ID,NAME,AGE,ADDRESS,SALARY)
      VALUES (3, 'Teddy', 23, 'Norway', 20000.00 ));
$rv = $dbh->do($stmt) or die $DBI::errstr;

$stmt = qq(INSERT INTO COMPANY (ID,NAME,AGE,ADDRESS,SALARY)
      VALUES (4, 'Mark', 25, 'Rich-Mond ', 65000.00 ););
$rv = $dbh->do($stmt) or die $DBI::errstr;

print "Records created successfully\n";
$dbh->disconnect();

При выполнении вышеприведённой программы будут созданы заданные записи в таблице COMPANY и выведены следующие две строки:

Opened database successfully
Records created successfully

Операция SELECT

Следующая программа Perl показывает, как извлечь и отобразить записи из таблицы COMPANY, созданной ранее:

#!/usr/bin/perl

use DBI;
use strict;

my $driver   = "SQLite";
my $database = "test.db";
my $dsn = "DBI:$driver:dbname=$database";
my $userid = "";
my $password = "";
my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 })
                      or die $DBI::errstr;
print "Opened database successfully\n";

my $stmt = qq(SELECT id, name, address, salary  from COMPANY;);
my $sth = $dbh->prepare( $stmt );
my $rv = $sth->execute() or die $DBI::errstr;
if($rv < 0){
   print $DBI::errstr;
}
while(my @row = $sth->fetchrow_array()) {
      print "ID = ". $row[0] . "\n";
      print "NAME = ". $row[1] ."\n";
      print "ADDRESS = ". $row[2] ."\n";
      print "SALARY =  ". $row[3] ."\n\n";
}
print "Operation done successfully\n";
$dbh->disconnect();

При выполнении вышеприведённой программы будет получен следующий результат:

Opened database successfully
ID = 1
NAME = Paul
ADDRESS = California
SALARY =  20000

ID = 2
NAME = Allen
ADDRESS = Texas
SALARY =  15000

ID = 3
NAME = Teddy
ADDRESS = Norway
SALARY =  20000

ID = 4
NAME = Mark
ADDRESS = Rich-Mond
SALARY =  65000

Operation done successfully

Операция UPDATE

Следующий код Perl показывает, как использовать оператор UPDATE для обновления любой записи, а затем извлечь и отобразить обновлённую запись из таблицы COMPANY:

#!/usr/bin/perl

use DBI;
use strict;

my $driver   = "SQLite";
my $database = "test.db";
my $dsn = "DBI:$driver:dbname=$database";
my $userid = "";
my $password = "";
my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 })
                      or die $DBI::errstr;
print "Opened database successfully\n";

my $stmt = qq(UPDATE COMPANY set SALARY = 25000.00 where ID=1;);
my $rv = $dbh->do($stmt) or die $DBI::errstr;
if( $rv < 0 ){
   print $DBI::errstr;
}else{
   print "Total number of rows updated : $rv\n";
}
$stmt = qq(SELECT id, name, address, salary  from COMPANY;);
my $sth = $dbh->prepare( $stmt );
$rv = $sth->execute() or die $DBI::errstr;
if($rv < 0){
   print $DBI::errstr;
}
while(my @row = $sth->fetchrow_array()) {
      print "ID = ". $row[0] . "\n";
      print "NAME = ". $row[1] ."\n";
      print "ADDRESS = ". $row[2] ."\n";
      print "SALARY =  ". $row[3] ."\n\n";
}
print "Operation done successfully\n";
$dbh->disconnect();

При выполнении вышеприведённой программы будет получен следующий результат:

Opened database successfully
Total number of rows updated : 1
ID = 1
NAME = Paul
ADDRESS = California
SALARY =  25000

ID = 2
NAME = Allen
ADDRESS = Texas
SALARY =  15000

ID = 3
NAME = Teddy
ADDRESS = Norway
SALARY =  20000

ID = 4
NAME = Mark
ADDRESS = Rich-Mond
SALARY =  65000

Operation done successfully

Операция DELETE

Следующий код Perl показывает, как использовать оператор DELETE для удаления любой записи, а затем извлечь и отобразить оставшиеся записи из таблицы COMPANY:

#!/usr/bin/perl

use DBI;
use strict;

my $driver   = "SQLite";
my $database = "test.db";
my $dsn = "DBI:$driver:dbname=$database";
my $userid = "";
my $password = "";
my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 })
                      or die $DBI::errstr;
print "Opened database successfully\n";

my $stmt = qq(DELETE from COMPANY where ID=2;);
my $rv = $dbh->do($stmt) or die $DBI::errstr;
if( $rv < 0 ){
   print $DBI::errstr;
}else{
   print "Total number of rows deleted : $rv\n";
}
$stmt = qq(SELECT id, name, address, salary  from COMPANY;);
my $sth = $dbh->prepare( $stmt );
$rv = $sth->execute() or die $DBI::errstr;
if($rv < 0){
   print $DBI::errstr;
}
while(my @row = $sth->fetchrow_array()) {
      print "ID = ". $row[0] . "\n";
      print "NAME = ". $row[1] ."\n";
      print "ADDRESS = ". $row[2] ."\n";
      print "SALARY =  ". $row[3] ."\n\n";
}
print "Operation done successfully\n";
$dbh->disconnect();

При выполнении вышеприведённой программы будет получен следующий результат:

Opened database successfully
Total number of rows deleted : 1
ID = 1
NAME = Paul
ADDRESS = California
SALARY =  25000

ID = 3
NAME = Teddy
ADDRESS = Norway
SALARY =  20000

ID = 4
NAME = Mark
ADDRESS = Rich-Mond
SALARY =  65000

Operation done successfully

Другие расширения

Продвинутое руководство по SQLite

Интерфейсы SQLite

SQLite - Perl

Установка

API интерфейса DBI

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

Создание таблицы

Операция INSERT

Операция SELECT

Операция UPDATE

Операция DELETE