perl 与sqlite 摘自扶凯

ykwll

　　转载本站文章请注明，转载自：扶凯[http://www.php-oa.com]
　　本文链接: http://www.php-oa.com/2009/12/21/perl-sqlite.html
　　Perl使用sqlite和使用mysql一样容易.非常喜欢这种风格.

Perl 使用 sqlite
　　SQLite模块定义的“数据库”是存在于单个文件中的，把单个文件仿真为一个数据库。这个还是相当方便的. 当我们在使用perl的DBI连接时，dbname参数指定为该文件名。
　　不像大多数的关系型数据库，在DBD::SQLite定义的数据库不是服务器/客户短架构，没有服务器，它直接与文件交换数据。 多个进程可以同时从一个文件中读取数据（此时用SELECTs命令），但是只有一个进程能向文件中写数据（当一个进程写数据的时候其它的进程被挂起）。
　　SQLite支持事务功能，也就是，你可以向多个表做出一系列改动，但是只要你不向SQLite提交这些改动，更新就不会写到文件中。

　　SQLite定义的数据库里面没有数据类型这个概念。不管你在创建一个表的时候指定的是什么数据类型，以后你可以在其中放入任何类型的数值（包括字符型，数字型，日期型，二进制对象/blob）。实际上，创建表的时候你甚至可以不指定数据类型。 CREATE TABLE people (>　　只有一种情况SQLite才会关心你为某一列申明的数据类型（需要创建一个值自增加的列的时候）。你可以把这列的类型指定为：“INTEGER PRIMARY KEY”。 CREATET ABLE people(>　　SQLite支持8位长的字符编码，但是不识别ASCII中的NULL符“\0”。唯一的变通方法就是在你存储数据之前自行编码，然后在取出数据之后再手工解码，就象URL编码或Base64编码方式一样。这甚至可以用在BLOB字段里面。
　　

　　
use DBI;
　　
$dbh=DBI->connect(“dbi:SQLite:dbname=./info.db”,”",”",{RaiseError=>1,AutoCommit=>0});
　　
# 在perl中，sqlite建表
　　
my $sql = “create table ip (id int null, name int null)”;
　　
$dbh->do( $sql);
　　
# 使用perl来更新sqlite的表内容
　　
my $sql = “alter table ip add column age varchar(1024) null”;
　　
$dbh->do( $sql);
　　
# 插入数据
　　
my $sql = “insert into name values( 1, 2, ‘myname’)”;
　　
$dbh->do( $sql );
　　
if ( $dbh->err() ) {
　　
die “$DBI::errstr\n”;
　　
}
　　
$dbh->commit();
　　
# 查询数据
　　
$sql = “select * from ip”;
　　
my $dbconn = $dbh->prepare($sql);
　　
$dbconn->execute();
　　
while ( my @row_ary = $dbconn->fetchrow_array ){
　　
my ($cc,$bb,$dd) = @row_ary;
　　
}
　　
$dbh->disconnect();
　　

　　


SQLite 插入时使用事件
　　SQLite的数据库本质上来讲就是一个磁盘上的文件，所以一切的数据库操作其实都会转化为对文件的操作，而频繁的文件操作将会是一个很好时的过程，会极大地影响数据库存取的速度。如果写入大量的数据时，记的要使用事件，我插入6W条数据。不使用事件要用10分钟，使用事件只有3秒.
　　

BEGIN;　　
.READ ip.SQL
　　
COMMIT;
　　


对 sqlite 速度进行了一下简单的测试
　　查5k日志中的ip地址信息
　　1.建表后默认的速度 sqlite的查找速度用时
　　real 3m53.812s
　　2.建索引后
　　

　　
sqlite> CREATE INDEX ipbegin_index ON ip(ipbegin);
　　
sqlite> CREATE INDEX ipend_index ON ip(ipend);
　　

　　sqlite的查找速度用时(这个太奇怪了反到慢了)
　　real 9m53.663s
　　2.使用sqlite来建复合索引 sqlite的查找速度用时(这个太奇怪了反到慢了)
　　2m8.845s

SQLite 使用
　　(1)创建数据库
　　
直接在命令中键入 sqlite3 test.db; 即可创建了一个名为test.db的数据库
　　

　　(2)创建表
　　
   create table Test(Id Integer primary key, value text);
　　
   此时即可完成表的创建，当把主键设为Integer时，则该主键为自动增长，插入数据时，可直接使用如下语句:
　　
   insert into Test values(null,’Acuzio’);
　　(3)获取最后一次插入的主键:
　　select last_insert_rowid();
　　(4)显示行数
　　sqlite>.mode col
　　
  sqlite>.headers on
　　

　　(5)SQLite Master Table Schema
　　
—————————————————————–
　　
Name                       Description
　　
—————————————————————–
　　
type          The object’s type (table, index, view, trigger)
　　
name          The object’s name
　　
tbl_name      The table the object is associated with
　　
rootpage      The object’s root page index in the database (where it begins)
　　
sql           The object’s SQL definition (DDL)
　　eg.
　　
sqlite> .mode col
　　
sqlite> .headers on
　　
sqlite> select type, name, tbl_name, sql from sqlite_master order by type;
　　
这样就能看到所有数据库中的信息，表、索引、视图等等
　　(6)导出数据
　　
.output [filename],导出到文件中,如果该文件不存在，则自动创建
　　
.dump 导出数据命令
　　
.output stdout 返回输出到屏幕(进行其他操作)
　　eg.
　　
sqlite>.output bakup.sql
　　
sqlite>.dump
　　
sqlite>.output stdout
　　
这样就可以把数据导入到Acuzio.sql中
　　(8)导入数据
　　
导入数据使用.read命令
　　
eg.
　　
如导入(7)中的数据
　　
sqlite>.read bakup.sql
　　(9)备份数据库
　　
在切换到Sqlite文件夹
　　
sqlite3 test.db .dump > test.sql
　　
如果在数据库中
　　
sqlite> .output file.sql
　　
sqlite> .dump
　　
sqlite> .exit
　　(10)导入数据库
　　
在切换到Sqlite文件夹
　　

　　
sqlite3 test.db < test.sql
　　

　　

　　(13. 其他的SQLite工具
　　
SQLite Database Browser (http://sqlitebrowser.sourceforge.net)
　　
SQLite Control Center (http://bobmanc.home.comcast.net/sqlitecc.html)
　　
SQLiteManager (www.sqlabs.net/sqlitemanager.php)
　　(14. SQLite 创建表结构
　　

CREATE [TEMP|TEMPORARY] TABLE TABLE_NAME (column_definitions [, constraints]);　　

　　关键字TEMP、TEMPORARY表示创建的是临时表
　　

　　(16. SQLite 中确保唯一性可以用关键字 UNIQUE
　　

CREATE TABLE contacts (>
name TEXT NOT NULL COLLATE NOCASE,
　　
phone TEXT NOT NULL DEFAULT 'UNKNOWN',
　　
UNIQUE (name,phone) );
　　

　　(17. 修改 SQLite 表结构
　　

ALTER TABLE TABLE { RENAME TO name | ADD COLUMN column_def }　　
eg.

　　
sqlite>>　　
ADD COLUMN email TEXT NOT NULL DEFAULT '' COLLATE NOCASE;
　　
sqlite> .schema contacts

　　
CREATE TABLE contacts (>　　
name TEXT NOT NULL COLLATE NOCASE,
　　
phone TEXT NOT NULL DEFAULT 'UNKNOWN',
　　
email TEXT NOT NULL DEFAULT '' COLLATE NOCASE,
　　
UNIQUE (name,phone) );
　　

　　(18. SQLite 查询
　　

SELECT DISTINCT heading FROM TABLES WHERE predicate　　
GROUP BY COLUMNS HAVING predicate
　　
ORDER BY COLUMNS LIMIT COUNT,offset;
　　

　　(19. SQLite 中取多少行和跳过多少行
　　
Limit 指返回记录的最大行数
　　
Offset 指跳过多少行数据