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,"");
$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 "@$entry\n";
}

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

 

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

~msergeant/DBD-SQLite-1.13/lib/DBD/SQLite.pm