perl+SQlite
发布时间:2020-12-16 00:10:10 所属栏目:大数据 来源:网络整理
导读:1. Common Cmds Sqlite是一个小巧的嵌入式关系型数据库,几乎可以嵌入所有编程语言,特别是C,C++,PHP,Perl等。这里就介绍如何用Perl连接并操作Sqlite数据库。 use DBI; # perl用以操作sqlite的模块,有这一个模块就足够了use strict; # 初学必须加上这一
1. Common Cmds Sqlite是一个小巧的嵌入式关系型数据库,几乎可以嵌入所有编程语言,特别是C,C++,PHP,Perl等。这里就介绍如何用Perl连接并操作Sqlite数据库。 use DBI; # perl用以操作sqlite的模块,有这一个模块就足够了 use strict; # 初学必须加上这一句,以严格要求语句的撰写 use warnings; main: { my $dbargs = {AutoCommit => 0,#使用事件 PrintError => 1}; # 连接到数据库 my $dbh = DBI->connect("dbi:SQLite:dbname=test.db","",$dbargs); # 创建表 $dbh->do("create table test(id int primary key,age,name)"); # 插入数据 $dbh->do("insert into test values(Null,'34','Liu Qiang'"); #更新数据 $dbh->do("update test set age='33' where name='Liu Qiang'"); #删除数据 $dbh->do("delete from test where name='Liu Qiang'"); #查询数据 my $sql = "SELECT * FROM test"; my $dbconn = $dbh->prepare($sql); $dbconn->execute(); my (@row_ary,$cc,$bb,$dd); while (@row_ary = $dbconn->fetchrow_array ){ my($cc,$dd) = @row_ary; print "表Test的内容为n"; print "t@row_aryn"; } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |