perl 批量导入文件到sqlite3

1. 下载文件sqlite-shell-win32-x86-3071300.zip ，sqlite3的windows版本命令行程序

2. 编写脚步

? ?2.1 perl?

#!perl -w
use strict;

my $CMD;
my $DBName = "abcd.db";
my $dbexcutesqlfile = "excute.sql";
my $DBHandel;
open  $DBHandel,"| sqlite3.exe  test.db";
print  $DBHandel "BEGIN;n";
print  $DBHandel ".read $dbexcutesqlfilen";
print  $DBHandel "COMMIT;n";
print  $DBHandel ".separator ','n";
print  $DBHandel ".import list.csv eeen";

print ?$DBHandel ".quitn";
close ?$DBHandel;
print "eee";

? 2.2 sql 执行脚本excute.sql 内容为：

??create table IF NOT EXISTS eee (id integer,number ?NUMERIC);
insert into eee values(33,444);
insert into eee values(33,777);

? ?语法参考：

http://blog.csdn.net/ejzhang/article/details/6224915

2.3 准备数据文件 list.csv

?1,2
2,3
3,4

3. 查看文件

? ?sqlite ?test.db

?.table

select *from ?eee;

输出如下：

1|2 2|3 3|4 33|444 33|777 1|2 2|3 3|4 33|444 33|777 33|444 33|777 33|444 33|777 1|2 2|3 3|4