perl连接SQLite

需要安装DBD::SQLite模块

[root@localhost ~]# cat create_db.pl 

#!/usr/bin/perl -w
use strict;

use DBI;

my $db_file="data.db";
#建立连接
my $dbh = DBI->connect("dbi:SQLite:dbname=$db_file","","");

#建表
$dbh->do("CREATE TABLE users(
username varchar(255),password varchar(100),born date,test1 date,test2 varchar(500),test3 varchar(500),urlt varchar(500))"); 

#建索引 

$dbh->do("CREATE INDEX idx_name_users ON users(username)");
#插入数据
my $sth = $dbh->prepare(q{INSERT INTO users VALUES (?,?,?)});

foreach my $i (1,2,3,4){
$sth->bind_param(1,"ssss$i");
$sth->bind_param(2,"passwd");
$sth->bind_param(3,20090102);
$sth->bind_param(4,20090102);
$sth->bind_param(5,"none");
$sth->bind_param(6,"none");
$sth->bind_param(7,"http://www.supersun.biz");
$sth->execute or die $dbh->errstr;
}

$dbh->disconnect; 


 

查询数据

[root@localhost ~]# cat db_view.pl 


#!/usr/bin/perl -w
use strict;

use DBI;

my $db_file="data.db";

my $dbh = DBI->connect("dbi:SQLite:dbname=$db_file","");

my $ary_ref=$dbh->selectall_arrayref(q{SELECT * FROM users});
foreach my $entry (@$ary_ref){
print "@$entryn";
}

$dbh->disconnect;
[root@localhost ~]# perl db_view.pl 
ssss1 passwd 20090102 20090102 none none http://www.supersun.biz
ssss2 passwd 20090102 20090102 none none http://www.supersun.biz
ssss3 passwd 20090102 20090102 none none http://www.supersun.biz
ssss4 passwd 20090102 20090102 none none http://www.supersun.biz

 

参考链接：http://updatedb.blog.hexun.com/7069108_d.html 

http://search.cpan.org/~msergeant/DBD-SQLite-1.13/lib/DBD/SQLite.pm