如何用Perl访问SQLite数据库

其主要思路是：1.把数据库分解成几个asset文件。2.当需要打开数据库时，如果数据库不存在，就把那几个asset文件重新合并成一个数据库文件。3.如果数据库的版本改变了，就在onUpgrade()方法中把数据库文件删除掉。下面是代码：//数据库的缺省路径privatestaticfinalStringDB_PATH="/data/data/com.mypackage.myapp/databases/"privatestaticfinalStringDB_NAME="mydb.db"privatestaticfinalintDB_VERSION=2privatestaticfinalStringDB_SPLIT_NAME="mydb.db.00"privatestaticfinalintDB_SPLIT_COUNT=3privateSQLiteDatabasem_databaseprivatefinalContextm_context/***Constructor*保存传进来的context参数以用来访问应用的asset和资源文件

首先得确保安装了数据库接口模块和相应数据库的驱动模块，如果是用MySql数据库（开源免费新手入门学习都喜欢），则需要确定DBI和DBD::mysql这两个模块是否安装；

然后在perl脚本中写：

!#usr/bin/perl -w

use strict

use DBI#使用DBI模块，DBD::mysql是驱动不必在脚本中使用，安装了就行

my $dbname = ""#引号里填上数据库名

my $ip = ""#引号里填上要访问的数据库的ip地址，数据库是本机就写127.0.0.1

my $port = ""#引号里填上要访问的数据库的端口号，mysql默认端口号是3306

my $host = "dbi:mysql:" . $dbname . ":" . $ip . ":" . $port

my $user = "root"#访问数据库使用的用户名

my $password = "xXxX"#该用户名所使用的密码

my $dbh = DBI ->connect($host,$user,$password) or die "$@"#与数据库建立连接

$dbh ->do("set names \'gbk\'")#设置输出中文不乱码

while(1) #条件永远为真，除非人为终止，否则不会停止

{ #可以使用control+c停止脚本执行

my $sql = ""#引号里填上sql语句

$sth = $dbh ->prepare($sql)#送入数据库做准备

$sth ->execute()#执行这条sql语句

sleep(300)#设置300秒暂停执行，300秒后继续执行while

}

$dbh ->disconnect()#断开与数据库的连接

这里使用的是最新的perl和最新的mysql最新，不是复制粘贴别人代码，前几天还在用，保证思路没有问题。

---