#!/usr/bin/perl
use DBI;
$db_name='zjzc';
$ip='127.0.0.1';
$user="root";
$passwd="1234567";
$dbh="";
$dbh = DBI->connect("dbi:mysql:database=$db_name;host=$ip;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;
$dbh->do("SET NAMES 'utf8'");
$UNLOAD_SRC_DBCONN = DBI->connect("dbi:mysql:database=$db_name;host=$ip;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;
$UNLOAD_SRC_DBCONN->do("SET NAMES 'utf8'");
if ( $#ARGV < 0 ){
print "please input your table name !\n";
exit(-1);
}
my $t
perl dbi unload utf8脚本
最新推荐文章于 2022-05-30 17:43:55 发布
这是一个使用Perl DBI模块连接到MySQL数据库并执行SQL语句来导出UTF8编码数据的脚本。脚本首先建立数据库连接,设置字符集为UTF8,然后获取表的列名,并构造SQL查询语句,最后将数据写入TXT文件。
摘要由CSDN通过智能技术生成