空间  购物  百科  知道  词典  美女  繁体  小说

上一篇《一个Mysql C API小型封装》

字体: 小|中|大

　　这个脚本是使用Perl生成excel xls文件的工具。依赖一些模块，你可以在linux下使用，产生xls文件。使用方式是命令行+参数。非常方便。
　　#!/usr/bin/perl
　　#===============================
　　# mysql to excel
　　# lastmodify at 2005-1-5
　　# copyright by hoowa
　　#=============================
　　use strict; #严格语法检测
　　use DBI; #数据库引擎
　　use Unicode::Map; #Unicode引擎
　　#use Spreadsheet::WriteExcel; #Excel报表引擎
　　use Spreadsheet::WriteExcel::Big; #大文件Excel报表引擎
　　my $hostname='192.168.1.133';
　　my $username='user';
　　my $password='pass';
　　my $dbname='db';
　　my $trans_compress=1; #任何非一的数关闭数据库到程序间传输压缩
　　$|=1;
　　my @cols=('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','Q:Q','R:R','S:S','T:T','U:U',
　　'V:V','W:W','X:X','Y:Y','Z:Z','AA:A','BB:B','CC:C','DD:D','EE:E',
　　'FF:F','GG:G','HH:H','II:I','JJ:J','KK:K','LL:L','MM:M','NN:N',
　　'OO:O','PP:P','QQ:Q','RR:R','SS:S','TT:T','UU:U','VV:V','WW:W',
　　'XX:X','YY:Y','ZZ:Z');
　　#解析来内容
　　if ($#ARGV != '1') {
　　print qq~syntax: my2excel.pl "[where expression]"
　　~;
　　exit;
　　}
　　$ARGV[1]=~ s/\"//g;
　　warn qq~
　　mysql to excel
　　by hoowa.sun
　　=====================
　　sql: $ARGV[1]
　　~;
　　my $dbh =
　　DBI->connect("DBI:mysql:mysql_compression=$trans_compress;
　　database=$dbname;host=$hostname",$username,$password);
　　my $sth = $dbh->prepare("$ARGV[1]") || die $dbh->errstr;
　　my $rows = $sth->execute() or die $sth->errstr;
　　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();
　　}(王朝网络 wangchao.net.cn)

 

标签: MySQL  XLS  导出  工具  数据  

这个脚本是使用Perl生成excel xls文件的工具。依赖一些模块，你可以在linux下使用，产生xls文件。使用方式是命令行+参数。非常方便。 #!/usr/bin/perl #=============================== # mysql to excel # lastmodify at 2005-1-5 # copyright by hoowa #============================= use strict; #严格语法检测 use DBI; #数据库引擎 use Unicode::Map; #Unicode引擎 #use Spreadsheet::WriteExcel; #Excel报表引擎 use Spreadsheet::WriteExcel::Big; #大文件Excel报表引擎 my $hostname='192.168.1.133'; my $username='user'; my $password='pass'; my $dbname='db'; my $trans_compress=1; #任何非一的数关闭数据库到程序间传输压缩 $|=1; my @cols=('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','Q:Q','R:R','S:S','T:T','U:U', 'V:V','W:W','X:X','Y:Y','Z:Z','AA:A','BB:B','CC:C','DD:D','EE:E', 'FF:F','GG:G','HH:H','II:I','JJ:J','KK:K','LL:L','MM:M','NN:N', 'OO:O','PP:P','QQ:Q','RR:R','SS:S','TT:T','UU:U','VV:V','WW:W', 'XX:X','YY:Y','ZZ:Z'); #解析来内容 if ($#ARGV != '1') { print qq~syntax: my2excel.pl "[where expression]" ~; exit; } $ARGV[1]=~ s/\"//g; warn qq~ mysql to excel by hoowa.sun ===================== sql: $ARGV[1] ~; my $dbh = DBI->connect("DBI:mysql:mysql_compression=$trans_compress; database=$dbname;host=$hostname",$username,$password); my $sth = $dbh->prepare("$ARGV[1]") || die $dbh->errstr; my $rows = $sth->execute() or die $sth->errstr; 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(); }

 

声明：王朝网络登载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述，文章内容仅供参考。

 

网友评论 查看所有评论

 

 

 

网络 商业价值杂志：HTML5将带来什么
母婴 国内外给宝宝补钙有啥区别
健康 北京海鲜去哪里吃
旅游 欧洲自助游如何办签证
数码 印度暂缓封锁黑莓 紧盯网密服务密钥－安全资讯
游戏 短暂的歇息 多玩编辑部外出旅游三天
学院 摩托罗拉XT701手机使用的感觉
家饰 富安娜指控罗莱流氓链接 后者应诉坚称无辜
家电 中国小家电交易会9天创造逾10亿签单额
女性 “奋斗男”坚守婚姻保卫第一线
汽车 国内SUV销量三甲过人之处解析
珠宝 中国珠宝内销市场一枝独秀
军事 简氏：中国正为泰国研制新型火箭炮及导弹
美女 蓝色湖边的靓丽少女
探索 月球地名首次有了标准中文译名