知识大全从MySQL导出XLS数据库工具

Posted 2022-07-15 数据库

篇首语：谁和我一样用功，谁就会和我一样胜利。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全从MySQL导出XLS数据库工具相关的知识，希望对你有一定的参考价值。

从MySQL导出XLS数据库工具 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

这个脚本是使用Perl生成excel xls文件的工具依赖一些模块你可以在linux下使用产生xls文件使用方式是命令行+参数非常方便 #!/usr/bin/perl#===============================# mysql to excel# lastmodify at # copyright by hoowa#=============================use strict; #严格语法检测use DBI; #数据库引擎use Unicode::Map; #Unicode引擎#use Spreadsheet::WriteExcel; #Excel报表引擎use Spreadsheet::WriteExcel::Big; #大文件Excel报表引擎my $hostname= ;my $username= user ;my $password= pass ;my $dbname= db ;my $trans_press= ; #任何非一的数关闭数据库到程序间传输压缩$|= ;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 != ) print qq~syntax: my excel pl <writefilename> [where expression] ~;exit;$ARGV[ ]=~ s/\\ //g;warn qq~mysql to excelby hoowa sun=====================sql: $ARGV[ ]~;my $dbh = DBI >connect( DBI:mysql:mysql_pression=$trans_press;database=$dbname;host=$hostname $username $password);my $sth = $dbh >prepare( $ARGV[ ] ) || 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[ ] fields out of allow!!(max num > ($#cols+ ) )\\n ;exit;warn write to: $ARGV[ ]\\n ;#生成GB 编码系统my $map = Unicode::Map >new( gb );#产生报表my $report = Spreadsheet::WriteExcel::Big >new( $ARGV[ ] ) || die 不能生成报表文件 $! ;#创建报表的工作表my $sheet = $report >add_worksheet( data_report );#创建格式my $title_style = $report >add_format(); $title_style >set_size( ); $title_style >set_bold(); $title_style >set_align( center );#初始化数据指针my $sheet_col = ;#创建表格for (my $i= ;$i<=$#cols_name ;$i++) $sheet >set_column($cols[$i] length($cols_name[$i])+ );$sheet >write_unicode($sheet_col $i $map >to_unicode($cols_name[$i]) $title_style);$sheet >freeze_panes( );#冻结行while (my @row = $sth >fetchrow_array) $sheet_col++;for (my $i= ;$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(); cha138/Article/program/MySQL/201311/29338

知识大全 从MySQL导出XLS数据库工具

知识大全从MySQL导出XLS数据库工具