SQLite - Perl

устанавливать

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

Ниже приведены простые шаги, чтобы установить модуль DBI на машинах Linux / UNIX:

$ Wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.625.tar.gz
$ Тар xvfz DBI-1.625.tar.gz
$ Cd DBI-1.625
$ Perl Makefile.PL
$ Сделать
$ Сделать установки

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

$ Wget http://search.cpan.org/CPAN/authors/id/M/MS/MSERGEANT/DBD-SQLite-1.11.tar.gz
$ Тар xvfz DBD-SQLite-1.11.tar.gz
$ Cd DBD-SQLite-1.11
$ Perl Makefile.PL
$ Сделать
$ Сделать установки

DBI интерфейс API

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

序号	API & 描述
1	DBI->connect($data_source, "", "", \%attr) 建立一个到被请求的 $data_source 的数据库连接或者 session。如果连接成功，则返回一个数据库处理对象。数据源形式如下所示：DBI:SQLite:dbname='test.db'。其中，SQLite 是 SQLite 驱动程序名称，test.db 是 SQLite 数据库文件的名称。如果文件名filename赋值为':memory:'，那么它将会在 RAM 中创建一个内存数据库，这只会在 session 的有效时间内持续。如果文件名 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。该程序返回最后调用的驱动程序（driver）方法的数据库引擎错误代码。
7	$DBI::errstr 这相当于 $h->errstr。其中，$h 是任何的处理类型，比如 $dbh、$sth 或 $drh。该程序返回最后调用的 DBI 方法的数据库引擎错误消息。
8	$dbh->disconnect() 该例程关闭之前调用 DBI->connect() 打开的数据库连接。

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

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

#! / Usr / бен / Perl

использовать DBI;
использовать строгий;

мой $ водитель = "SQLite"; 
мой $ базы данных = "test.db";
мой $ DSN = "DBI: $ водитель: имя_бд = $ базы данных";
мой $ UserID = "";
мой $ пароль = "";
мой $ DBH = DBI-> Connect ($ DSN, $ USERID, $ пароль, {RaiseError => 1}) 
                      или умереть $ DBI :: ErrStr;

печать "Открытая база данных успешно \ п";

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

$ Chmod + х sqlite.pl
$ ./sqlite.pl
Открытая база данных успешно

Создать таблицу

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

#! / Usr / бен / Perl

использовать DBI;
использовать строгий;

мой $ водитель = "SQLite";
мой $ базы данных = "test.db";
мой $ DSN = "DBI: $ водитель: имя_бд = $ базы данных";
мой $ UserID = "";
мой $ пароль = "";
мой $ DBH = DBI-> Connect ($ DSN, $ USERID, $ пароль, {RaiseError => 1})
                      или умереть $ DBI :: ErrStr;
печать "Открытая база данных успешно \ п";

мой $ STMT = кв.кв (CREATE TABLE КОМПАНИЯ
      (ID INT PRIMARY KEY NOT NULL,
       NAME TEXT NOT NULL,
       AGE INT NOT NULL,
       АДРЕС CHAR (50),
       ЗАРПЛАТА REAL););
мой $ с.в. = $ dbh-> делать ($ STMT);
если ($ с.в. <0) {
   печать $ DBI :: ErrStr;
} Else {
   печать "таблица успешно создан \ п";
}
$ Dbh-> отсоединить ();

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

Открытая база данных успешно
Таблица успешно создана

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

DBD :: SQLite :: ул выполнить не удалось: не ошибка (21) на dbdimp.c линии 398

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

операции ВСТАВИТЬ

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

#! / Usr / бен / Perl

использовать DBI;
использовать строгий;

мой $ водитель = "SQLite";
мой $ базы данных = "test.db";
мой $ DSN = "DBI: $ водитель: имя_бд = $ базы данных";
мой $ UserID = "";
мой $ пароль = "";
мой $ DBH = DBI-> Connect ($ DSN, $ USERID, $ пароль, {RaiseError => 1})
                      или умереть $ DBI :: ErrStr;
печать "Открытая база данных успешно \ п";

мой $ STMT = кв.кв (INSERT INTO COMPANY (ID, имя, отчество, возраст, адрес, ЗАРПЛАТА)
      VALUES (1, 'Paul', 32, 'Калифорния', 20000.00));
мой $ с.в. = $ dbh-> делать ($ Stmt) или умереть $ DBI :: ErrStr;

$ Stmt = кв.кв (INSERT INTO COMPANY (ID, имя, отчество, возраст, адрес, ЗАРПЛАТА)
      VALUES (2, 'Аллен', 25, 'Texas', 15000.00));
$ Rv = $ dbh-> делать ($ Stmt) или умереть $ DBI :: ErrStr;

$ Stmt = кв.кв (INSERT INTO COMPANY (ID, имя, отчество, возраст, адрес, ЗАРПЛАТА)
      ЗНАЧЕНИЯ (3, 'Teddy', 23 'Норвегия', 20000.00));
$ Rv = $ dbh-> делать ($ Stmt) или умереть $ DBI :: ErrStr;

$ Stmt = кв.кв (INSERT INTO COMPANY (ID, имя, отчество, возраст, адрес, ЗАРПЛАТА)
      ЗНАЧЕНИЯ (4, 'Марк', 25 'Rich-Mond', 65000.00););
$ Rv = $ dbh-> делать ($ Stmt) или умереть $ DBI :: ErrStr;

печать "Записи успешно созданные \ п";
$ Dbh-> отсоединить ();

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

Открытая база данных успешно
Записи успешно создана

выбирать операции

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

#! / Usr / бен / Perl

использовать DBI;
использовать строгий;

мой $ водитель = "SQLite";
мой $ базы данных = "test.db";
мой $ DSN = "DBI: $ водитель: имя_бд = $ базы данных";
мой $ UserID = "";
мой $ пароль = "";
мой $ DBH = DBI-> Connect ($ DSN, $ USERID, $ пароль, {RaiseError => 1})
                      или умереть $ DBI :: ErrStr;
печать "Открытая база данных успешно \ п";

мой $ STMT = кв.кв (SELECT ID, имя, адрес, зарплату от компании;);
мой $ STH = $ dbh-> подготовить ($ Stmt);
мой $ с.в. = $ sth-> Execute () или умереть $ DBI :: ErrStr;
если ($ с.в. <0) {
   печать $ DBI :: ErrStr;
}
в то время как (мой @row = $ sth-> fetchrow_array ()) {
      печать "ID =" $ строки [0] "\ п" ..;
      . Print "NAME =" $ строка [1] "\ N" .;
      . Print "АДРЕС =" $ строка [2] "\ N" .;
      . Print "ЗАРПЛАТА =" $ строка [3] "\ п \ п" .;
}
печать "Операция успешно сделано \ п";
$ Dbh-> отсоединить ();

Когда выше программа выполнена, она будет производить следующие результаты:

Открытая база данных успешно
ID = 1
NAME = Paul
АДРЕС = California
ЗАРПЛАТА = 20000

ID = 2
NAME = Allen
АДРЕС = Texas
ЗАРПЛАТА = 15000

ID = 3
NAME = Teddy
АДРЕС = Норвегия
ЗАРПЛАТА = 20000

ID = 4
NAME = Mark
АДРЕС = Rich-Mond
ЗАРПЛАТА = 65000

Операция успешно сделано

операция UPDATE

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

#! / Usr / бен / Perl

использовать DBI;
использовать строгий;

мой $ водитель = "SQLite";
мой $ базы данных = "test.db";
мой $ DSN = "DBI: $ водитель: имя_бд = $ базы данных";
мой $ UserID = "";
мой $ пароль = "";
мой $ DBH = DBI-> Connect ($ DSN, $ USERID, $ пароль, {RaiseError => 1})
                      или умереть $ DBI :: ErrStr;
печать "Открытая база данных успешно \ п";

мой $ STMT = кв.кв (ДОПОЛНЕНО КОМПАНИЯ установить ЗАРПЛАТУ = 25000.00, где ID = 1;);
мой $ с.в. = $ dbh-> делать ($ Stmt) или умереть $ DBI :: ErrStr;
если ($ с.в. <0) {
   печать $ DBI :: ErrStr;
} Else {
   печать "Общее количество строк обновлено: $ с.в. \ N";
}
$ Stmt = кв.кв (SELECT ID, имя, адрес, зарплата от компании;);
мой $ STH = $ dbh-> подготовить ($ Stmt);
$ Rv = $ sth-> Execute () или умереть $ DBI :: ErrStr;
если ($ с.в. <0) {
   печать $ DBI :: ErrStr;
}
в то время как (мой @row = $ sth-> fetchrow_array ()) {
      печать "ID =" $ строки [0] "\ п" ..;
      . Print "NAME =" $ строка [1] "\ N" .;
      . Print "АДРЕС =" $ строка [2] "\ N" .;
      . Print "ЗАРПЛАТА =" $ строка [3] "\ п \ п" .;
}
печать "Операция успешно сделано \ п";
$ Dbh-> отсоединить ();

Когда выше программа выполнена, она будет производить следующие результаты:

Открытая база данных успешно
Общее количество строк обновлено: 1
ID = 1
NAME = Paul
АДРЕС = California
ЗАРПЛАТА = 25000

ID = 2
NAME = Allen
АДРЕС = Texas
ЗАРПЛАТА = 15000

ID = 3
NAME = Teddy
АДРЕС = Норвегия
ЗАРПЛАТА = 20000

ID = 4
NAME = Mark
АДРЕС = Rich-Mond
ЗАРПЛАТА = 65000

Операция успешно сделано

операция удаления

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

#! / Usr / бен / Perl

использовать DBI;
использовать строгий;

мой $ водитель = "SQLite";
мой $ базы данных = "test.db";
мой $ DSN = "DBI: $ водитель: имя_бд = $ базы данных";
мой $ UserID = "";
мой $ пароль = "";
мой $ DBH = DBI-> Connect ($ DSN, $ USERID, $ пароль, {RaiseError => 1})
                      или умереть $ DBI :: ErrStr;
печать "Открытая база данных успешно \ п";

мой $ STMT = кв.кв (DELETE из компании, где ID = 2;);
мой $ с.в. = $ dbh-> делать ($ Stmt) или умереть $ DBI :: ErrStr;
если ($ с.в. <0) {
   печать $ DBI :: ErrStr;
} Else {
   печать "Общее количество удаленных строк: $ с.в. \ п";
}
$ Stmt = кв.кв (SELECT ID, имя, адрес, зарплата от компании;);
мой $ STH = $ dbh-> подготовить ($ Stmt);
$ Rv = $ sth-> Execute () или умереть $ DBI :: ErrStr;
если ($ с.в. <0) {
   печать $ DBI :: ErrStr;
}
в то время как (мой @row = $ sth-> fetchrow_array ()) {
      печать "ID =" $ строки [0] "\ п" ..;
      . Print "NAME =" $ строка [1] "\ N" .;
      . Print "АДРЕС =" $ строка [2] "\ N" .;
      . Print "ЗАРПЛАТА =" $ строка [3] "\ п \ п" .;
}
печать "Операция успешно сделано \ п";
$ Dbh-> отсоединить ();

Когда выше программа выполнена, она будет производить следующие результаты:

Открытая база данных успешно
Общее количество удаленных строк: 1
ID = 1
NAME = Paul
АДРЕС = California
ЗАРПЛАТА = 25000

ID = 3
NAME = Teddy
АДРЕС = Норвегия
ЗАРПЛАТА = 20000

ID = 4
NAME = Mark
АДРЕС = Rich-Mond
ЗАРПЛАТА = 65000

Операция успешно сделано

Предыдущий: SQLite - PHP

Далее: SQLite - Python

SQlite курс

SQLite Расширенный учебник

SQLite интерфейс

SQLite - Perl

устанавливать

DBI интерфейс API

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

Создать таблицу

операции ВСТАВИТЬ

выбирать операции

операция UPDATE

операция удаления