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

$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

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值