从mysql导出xls数据库工具

《从mysql导出xls数据库工具》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、从MySQL导出XLS数据库工具>>教育资源库　　这个脚本是使用Perl生成excelxls文件的工具。依赖一些模块，你可以在linux下使用，产生xls文件。使用方式是命令行+参数。非常方便。#!/usr/bin/perl#===============================#mysqltoexcel#lastmodifyat2005-1-5#copyrightbyhooy$hostname='192.168.1.133';my$username='user';my$passy$dbname='db

2、';my$trans_press=1;#任何非一的数关闭数据库到程序间传输压缩$

3、=1;mycols=('A:A','B:B','C:C','D:D','E:E','F:F','G:G','H:H','I:I','J:J','K:K','L:L','M:M','N:N','O:O','P:P'

4、;,'Q:Q','R:R','S:S','T:T','U:U','V:V','M:M','NN:N','OO:O','PP:P',':Q','RR:R','SS:S','TT:T','UU:U','VV:V','E'}};if($#cols_name>$#cols){print

5、table$ARGV[1]fieldsoutofalloaxnum.>.($#cols+1).);exit;}y$map=Unicode::Map->ney$report=Spreadsheet::at();$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++){$

6、sheet->set_column($cols[$i],length($cols_name[$i])+4);$sheet->ap->to_unicode($cols_name[$i]),$title_style);}$sheet->freeze_panes(1,0);#冻结行12下一页>>>>这篇文章来自..，。yroy$i=0;$i<=$#cols_name;$i++){nextif($roap->to_unicode($row[$i]));}}warnalldone!!!;#结束END{$report->

7、close()if($report);$dbh->disconnect();}上一页12>>>>这篇文章来自..，。