# SQLite - Perl
## 安裝
SQLite3 可使用 Perl DBI 模塊與 Perl 進行集成。Perl DBI 模塊是 Perl 編程語言的數據庫訪問模塊。它定義了一組提供標準數據庫接口的方法、變量及規則。
下面顯示了在 Linux/UNIX 機器上安裝 DBI 模塊的簡單步驟：
```
$ 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
```
如果您需要為 DBI 安裝 SQLite 驅動程序，那么可按照以下步驟進行安裝：
```
$ 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
```
## DBI 接口 API
以下是重要的 DBI 程序，可以滿足您在 Perl 程序中使用 SQLite 數據庫的需求。如果您需要了解更多細節，請查看 Perl DBI 官方文檔。
| API | 描述 |
| --- | --- |
| **DBI->connect($data_source, "", "", \%attr)** | 建立一個到被請求的 $data_source 的數據庫連接或者 session。如果連接成功，則返回一個數據庫處理對象。 數據源形式如下所示：**DBI:SQLite:dbname='test.db'**。其中，SQLite 是 SQLite 驅動程序名稱，test.db 是 SQLite 數據庫文件的名稱。如果文件名 _filename_ 賦值為 **':memory:'**，那么它將會在 RAM 中創建一個內存數據庫，這只會在 session 的有效時間內持續。 如果文件名 filename 為實際的設備文件名稱，那么它將使用這個參數值嘗試打開數據庫文件。如果該名稱的文件不存在，那么將創建一個新的命名為該名稱的數據庫文件。 您可以保留第二個和第三個參數為空白字符串，最后一個參數用于傳遞各種屬性，詳見下面的實例講解。 |
| **$dbh->do($sql)** | 該例程準備并執行一個簡單的 SQL 語句。返回受影響的行數，如果發生錯誤則返回 undef。返回值 -1 意味著行數未知，或不適用 ，或不可用。在這里，$dbh 是由 DBI->connect() 調用返回的處理。 |
| **$dbh->prepare($sql)** | 該例程為數據庫引擎后續執行準備一個語句，并返回一個語句處理對象。 |
| **$sth->execute()** | 該例程執行任何執行預準備的語句需要的處理。如果發生錯誤則返回 undef。如果成功執行，則無論受影響的行數是多少，總是返回 true。在這里，$sth 是由 $dbh->prepare($sql) 調用返回的語句處理。 |
| **$sth->fetchrow_array()** | 該例程獲取下一行數據，并以包含各字段值的列表形式返回。在該列表中，Null 字段將作為 undef 值返回。 |
| **$DBI::err** | 這相當于 $h->err。其中，$h 是任何的處理類型，比如 $dbh、$sth 或 $drh。該程序返回最后調用的驅動程序（driver）方法的數據庫引擎錯誤代碼。 |
| **$DBI::errstr** | 這相當于 $h->errstr。其中，$h 是任何的處理類型，比如 $dbh、$sth 或 $drh。該程序返回最后調用的 DBI 方法的數據庫引擎錯誤消息。 |
| **$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
```
**注意：**如果您在任何操作中遇到了下面的錯誤： in case you see following error in any of the operation:
```
DBD::SQLite::st execute failed: not an error(21) at dbdimp.c line 398
```
在這種情況下，您已經在 DBD-SQLite 安裝中打開了可用的 dbdimp.c 文件，找到 **sqlite3_prepare()** 函數，并把它的第三個參數 0 改為 -1。最后使用 **make** 和 **make install** 安裝 DBD::SQLite，即可解決問題。 in this case you will have open dbdimp.c file available in DBD-SQLite installation and find out **sqlite3_prepare()** function and change its third argument to -1 instead of 0\. Finally install DBD::SQLite using **make** and do **make install** to resolve the problem.
## 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
```
- SQL基礎
- SQL 簡介
- SQL 語法
- SQL SELECT 語句
- SQL SELECT DISTINCT 語句
- SQL WHERE 子句
- SQL AND & OR 運算符
- SQL ORDER BY 子句
- SQL INSERT INTO 語句
- SQL UPDATE 語句
- SQL DELETE 語句
- SQL高級
- SQL TOP 子句
- SQL LIKE 操作符
- SQL 通配符
- SQL IN 操作符
- SQL BETWEEN 操作符
- SQL Alias（別名）
- SQL JOIN
- SQL INNER JOIN 關鍵字
- SQL LEFT JOIN 關鍵字
- SQL RIGHT JOIN 關鍵字
- SQL FULL JOIN 關鍵字
- SQL UNION 和 UNION ALL 操作符
- SQL SELECT INTO 語句
- SQL CREATE DATABASE 語句
- SQL CREATE TABLE 語句
- SQL 約束 (Constraints)
- SQL NOT NULL 約束
- SQL UNIQUE 約束
- SQL PRIMARY KEY 約束
- SQL FOREIGN KEY 約束
- SQL CHECK 約束
- SQL DEFAULT 約束
- SQL CREATE INDEX 語句
- SQL 撤銷索引、表以及數據庫
- SQL ALTER TABLE 語句
- SQL AUTO INCREMENT 字段
- SQL VIEW（視圖）
- SQL函數
- SQL Date 函數
- SQL NULL 值
- SQL NULL 函數
- SQL 數據類型
- SQL 服務器 - RDBMS
- SQL 函數
- SQL AVG 函數
- SQL COUNT() 函數
- SQL FIRST() 函數
- SQL LAST() 函數
- SQL MAX() 函數
- SQL MIN() 函數
- SQL SUM() 函數
- SQL GROUP BY 語句
- SQL HAVING 子句
- SQL UCASE() 函數
- SQL LCASE() 函數
- SQL MID() 函數
- SQL LEN() 函數
- SQL ROUND() 函數
- SQL NOW() 函數
- SQL FORMAT() 函數
- SQL 快速參考
- SQLite 基礎
- SQLite 簡介
- SQLite 安裝
- SQLite 命令
- SQLite 語法
- SQLite 數據類型
- SQLite 創建數據庫
- SQLite 附加數據庫
- SQLite 分離數據庫
- SQLite 創建表
- SQLite 刪除表
- SQLite Insert 語句
- SQLite Select 語句
- SQLite 運算符
- SQLite 表達式
- SQLite Where 子句
- SQLite AND/OR 運算符
- SQLite Update 語句
- SQLite Delete 語句
- SQLite Like 子句
- SQLite Glob 子句
- SQLite Limit 子句
- SQLite Order By
- SQLite Group By
- SQLite Having 子句
- SQLite Distinct 關鍵字
- SQLite 高級
- SQLite PRAGMA
- SQLite 約束
- SQLite Joins
- SQLite Unions 子句
- SQLite NULL 值
- SQLite 別名
- SQLite 觸發器（Trigger）
- SQLite 索引（Index）
- SQLite Indexed By
- SQLite Alter 命令
- SQLite Truncate Table
- SQLite 視圖（View）
- SQLite 事務（Transaction）
- SQLite 子查詢
- SQLite Autoincrement（自動遞增）
- SQLite 注入
- SQLite Explain（解釋）
- SQLite Vacuum
- SQLite 日期 & 時間
- SQLite 常用函數
- SQLite 接口
- SQLite - C/C++
- SQLite - Java
- SQLite - PHP
- SQLite - Perl
- SQLite - Python
- MySQL 教程
- MySQL 教程
- MySQL 安裝
- MySQL 管理
- MySQL PHP 語法
- MySQL 連接
- MySQL 創建數據庫
- MySQL 刪除數據庫
- MySQL 選擇數據庫
- MySQL 數據類型
- MySQL 創建數據表
- MySQL 刪除數據表
- MySQL 插入數據
- MySQL 查詢數據
- MySQL where 子句
- MySQL UPDATE 查詢
- MySQL DELETE 語句
- MySQL LIKE 子句
- MySQL 排序
- Mysql Join的使用
- MySQL NULL 值處理
- MySQL 正則表達式
- MySQL 事務
- MySQL ALTER命令
- MySQL 索引
- MySQL 臨時表
- MySQL 復制表
- MySQL 元數據
- MySQL 序列使用
- MySQL 處理重復數據
- MySQL 及 SQL 注入
- MySQL 導出數據
- MySQL 導入數據
- 免責聲明