perl 批量导入文件到sqlite3

最新推荐文章于 2020-11-12 14:42:57 发布

bruce_wang_janet

最新推荐文章于 2020-11-12 14:42:57 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl 沙漠之舟文章标签： sqlite perl insert integer windows table

本文链接：https://blog.youkuaiyun.com/bruce_wang_janet/article/details/7746612

Perl 沙漠之舟专栏收录该内容

59 篇文章

订阅专栏

本文介绍如何使用SQLite shell命令行程序进行数据导入、执行SQL脚本和查询操作，包括创建表、插入数据和使用CSV文件进行数据迁移。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.youkuaiyun.com/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