从MySQL导出XLS数据库工具(跨平台)

warn "rows: $rows found.\n";

my @cols_name = @{$sth->{''NAME''}};
if ($#cols_name > $#cols) {
     print "table $ARGV[1] fields out of allow!!(max num. > ".($#cols+1).")\n";
     exit;
}

warn "write to: $ARGV[0]\n";

#生成GB2312编码系统
my $map = Unicode::Map->new("gb2312");
#产生报表
my $report = Spreadsheet::WriteExcel::Big->new("$ARGV[0]") || die "不能生成报表文件：$!";
#创建报表的工作表
my $sheet = $report->add_worksheet(''data_report'');
#创建格式
my $title_style = $report->add_format();     $title_style->set_size(11);       $title_style->set_bold();       $title_style->set_align(''center'');
#初始化数据指针
my $sheet_col = 0;

#创建表格
for (my $i=0;$i<=$#cols_name ;$i++) {
     $sheet->set_column($cols[$i], length($cols_name[$i])+4);
     $sheet->write_unicode($sheet_col,$i,$map->to_unicode($cols_name[$i]),$title_style);
}
$sheet->freeze_panes(1, 0);#冻结行

while (my @row = $sth->fetchrow_array) {
     $sheet_col++;
     for (my $i=0;$i<=$#cols_name ;$i++) {
       next if ($row[$i] eq '''');
       $sheet->write_unicode($sheet_col,$i,$map->to_unicode($row[$i]));
     }
}

warn "all done!!!\n";

#结束
END {
     $report->close() if ($report);
     $dbh->disconnect();
}

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!