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 $dbexcutesqlfile\n";
print  $DBHandel "COMMIT;\n";
print  $DBHandel ".separator ','\n";
print  $DBHandel ".import list.csv eee\n";

print  $DBHandel ".quit\n";
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