用perl实现从mysql数据库里导出数据到excel

此perl脚本参照博文

http://hi.baidu.com/jwxbond/blog/item/0774c566f91e7f2cab184cfe.html

修正该脚本导出UTF8字符为乱码问题

需要安装的模块

Spreadsheet::WriteExcel

OLE::Storage_Lite

可从www.cpan.org上下载相关模块&＃xff0c;如果比较懒可以下载文章后的附件&＃xff0c;并附一脚本安装相关模块&＃xff0c;附件文件为

OLE-Storage_Lite-0.18.tar.gz

Spreadsheet-WriteExcel-2.25.tar.gz

getmysqldate.pl

脚本如下

#!/usr/bin/perl
use strict;
use DBI;
use Encode;
use Spreadsheet::WriteExcel::Big;
my $hostname&＃61;"localhost"; #主机
my $username&＃61;"root";#用户名
my $password&＃61;"xxx";#密码
my $dbname&＃61;$ARGV[1];#连接的数据库名称
my $port&＃61;3306;#端口号

#由于连接到数据库名需要经常变化所以我把数据库名定义为一变量&＃xff0c;如果不定义也行执行sql语句的时候可以用mysql.user;这样的语句来定义到某个数据库
my &＃64;cols&＃61;(&＃39;A:A&＃39;,&＃39;B:B&＃39;,&＃39;C:C&＃39;,&＃39;D:D&＃39;,&＃39;E:E&＃39;,&＃39;F:F&＃39;,&＃39;G:G&＃39;,&＃39;H:H&＃39;,&＃39;I:I&＃39;,&＃39;J:J&＃39;,
&＃39;K:K&＃39;,&＃39;L:L&＃39;,&＃39;M:M&＃39;,&＃39;N:N&＃39;,&＃39;O:O&＃39;,&＃39;P:P&＃39;,&＃39;Q:Q&＃39;,&＃39;R:R&＃39;,&＃39;S:S&＃39;,&＃39;T:T&＃39;,&＃39;U:U&＃39;,
&＃39;V:V&＃39;,&＃39;W:W&＃39;,&＃39;X:X&＃39;,&＃39;Y:Y&＃39;,&＃39;Z:Z&＃39;,&＃39;AA:A&＃39;,&＃39;BB:B&＃39;,&＃39;CC:C&＃39;,&＃39;DD:D&＃39;,&＃39;EE:E&＃39;,
&＃39;FF:F&＃39;,&＃39;GG:G&＃39;,&＃39;HH:H&＃39;,&＃39;II:I&＃39;,&＃39;JJ:J&＃39;,&＃39;KK:K&＃39;,&＃39;LL:L&＃39;,&＃39;MM:M&＃39;,&＃39;NN:N&＃39;,
&＃39;OO:O&＃39;,&＃39;PP:P&＃39;,&＃39;QQ:Q&＃39;,&＃39;RR:R&＃39;,&＃39;SS:S&＃39;,&＃39;TT:T&＃39;,&＃39;UU:U&＃39;,&＃39;VV:V&＃39;,&＃39;WW:W&＃39;,
&＃39;XX:X&＃39;,&＃39;YY:Y&＃39;,&＃39;ZZ:Z&＃39;);

if ($#ARGV !&＃61; &＃39;2&＃39;) #如果接收到的ARGV值不为2则执行提示语句
{
print qq~usage: $0  FILENAME.xls DBNAME "SQL STATEMENT" \n~;
exit;
}

my $script_name&＃61;$ARGV[0];
my $sql_cmd&＃61;$ARGV[2];
$sql_cmd&＃61;~ s/\"//g;

my $dbh &＃61; DBI->connect("dbi:mysql:database&＃61;$dbname;host&＃61;$hostname;port&＃61;$port",$username,$password);

$dbh->do("set charset utf8;");   #mysql数据库是utf8编码,设置相同的编码方式,否则中文会乱码

my $sth &＃61; $dbh->prepare("$sql_cmd") || die $dbh->errstr;
my $rows &＃61; $sth->execute() or die $sth->errstr;
my $sql;
print "$sql cmd find $rows rows.\n";

my &＃64;cols_name &＃61; &＃64;{$sth->{&＃39;NAME&＃39;}}; #从数据库查询结果的列名
if ($#cols_name > $#cols)
{
print "result table fields overflow!(max num. > ".($#cols&＃43;1).")\n";
exit;
}

print "write to excel..\n";

#创建表格文件
my $excel &＃61; Spreadsheet::WriteExcel::Big->new("$ARGV[0]") || die "文件创建失败:$!";

#添加sheet页
my $sheet &＃61; $excel->add_worksheet(&＃39;result&＃39;);

#表的格式
my $title_style &＃61; $excel->add_format();
$title_style->set_size(11);
$title_style->set_bold();
$title_style->set_align(&＃39;center&＃39;);

my $sheet_col &＃61; 0; #sheet列

#将结果写入表格
for (my $i&＃61;0;$i<&＃61;$#cols_name ;$i&＃43;&＃43;) #列信息
{
$sheet->set_column($cols[$i], length($cols_name[$i])&＃43;20);
$sheet->write($sheet_col,$i,$cols_name[$i],$title_style);
}

#冻结表首行
$sheet->freeze_panes(1, 0);

while (my &＃64;row &＃61; $sth->fetchrow_array)
{
        $sheet_col&＃43;&＃43;;
        for (my $i&＃61;0;$i<&＃61;$#cols_name ;$i&＃43;&＃43;)
        {
                next if ($row[$i] eq &＃39;&＃39;); #无信息&＃xff0c;就不写入

Encode::_utf8_on($row[$i]); #把$row[i]当作utf8来处理
  $sheet->write($sheet_col, $i,$row[$i]); 
        }
}

print "finish!\n";

#脚本使用方法perl getmysqldate.pl  fuck.xls  information_schema "select * from tables;"

分号可有可无&＃xff0c;但作为mysqlsql语法习惯了