perl+SQlite

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,$bb,$dd) = @row_ary;
       print "表Test的内容为\n";

       print "\t@row_ary\n";
    }