使用DBI(perl) 实现文本文件导入导出mysql

最新推荐文章于 2024-07-19 23:42:39 发布

mahycsdn

最新推荐文章于 2024-07-19 23:42:39 发布

阅读量1.2k

点赞数

分类专栏：脚本语言文章标签： perl mysql

本文链接：https://blog.csdn.net/mahycsdn/article/details/48008969

版权

脚本语言专栏收录该内容

1 篇文章

订阅专栏

本文详细介绍了如何通过Perl脚本使用DBI和DBD模块连接MySQL数据库，包括下载、解压、安装DBI和DBD-mysql模块，解决安装中遇到的问题，并提供了数据库导入导出的示例脚本。

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

DBI 是perl脚本连接数据库的一个模块。
perl脚本相对shell更灵活，功能更强大，跨平台能力强。相对可执行jar包要简单很多。

1、下载安装包
DBI-1.631.tar.gz
perl脚本下载的网站http://www.cpan.org/
很多perl的组件都可以在这个网站上下载

2、解压
tar -xzvf DBI-1.631.tar.gz
cd DBI-1.631
perl Makefile.PL
make
make test

3、DBD安装
下载DBD-mysql-4.032.tar.gz （地址同1）
cd DBD-mysql-4.032
perl Makefile.PL --mysql_config=/usr/local/mysql/bin/mysql_config
make
make test
make install

4、其它可能发生的状况
如果运行某个调用MYSQL数据库的程序时出现如下系统提示：
install_driver(mysql) failed: Can't load '/usr/lib/perl5/site_perl/5.6.1/i386-linux/auto/DBD/mysql/mysql.so' for module DBD::mysql: /usr/lib/perl5/site_perl/5.6.1/i386-linux/auto/DBD/mysql/mysql.so: undefined symbol: uncompress at /usr/lib/perl5/5.6.1/i386-linux/DynaLoader.pm line 206. at (eval 2) line 3
那么说明DBD::MYSQL未安装成功。
此时将/usr/local/mysql/include/mysql/*
复制到/usr/include/
同时将/usr/local/mysql/lib/mysql/*
复制到/usr/lib/(64位系统/usr/lib64/)
然后使用perl Makefile.PL设置环境，再进行后续的正常安装，就能正确连接到MYSQL数据库。

/** 32位系统的解决办法
cp -rp /usr/local/mysql/include/mysql* /usr/include/
cp -rp /usr/local/mysql/lib/* /usr/lib/
**/
5、导入导出脚本实例

导入
#!/usr/bin/perl
use strict;
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost", "root", "admin", {'RaiseError' => 1});
my $rows = $dbh->do("LOAD DATA LOCAL INFILE 'test_data.txt' INTO TABLE users FIELDS TERMINATED BY '\t' OPTIONALLY ENCLOSED BY '\"' LINES TERMINATED BY '\n'");
print "$rows row(s) affected ";

参考
http://www.cnblogs.com/ggjucheng/archive/2012/11/05/2755683.html

导出：
#!/usr/bin/perl
use strict;
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost", "root", "admin", {'RaiseError' => 1});
my $rows = $dbh->do("select * from users into outfile '/tmp/test_out_data.txt' fields terminated by '\t' enclosed by '\"' lines terminated by '\n'");
print "$rows row(s) affected ";
参考：
http://www.cnblogs.com/wxb-km/archive/2012/10/23/2736394.html