perl 批量导入文件到sqlite3

来源：互联网发布：手机数学公式编辑软件编辑：程序博客网时间：2024/05/17 20:49

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

2. 编写脚步

2.1 perl

#!perl -wuse 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