知识大全从MySQL导出XLS数据库工具(跨平台)

Posted 2022-07-15 文件

篇首语：今天所做之事勿候明天，自己所做之事勿候他人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全从MySQL导出XLS数据库工具(跨平台)相关的知识，希望对你有一定的参考价值。

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

　　这个脚本是使用Perl生成excel xls文件的工具依赖一些模块你可以在linux下使用产生xls文件使用方式是命令行+参数非常方便这个脚本是使用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 excel　　by 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/29477

知识大全 从MySQL导出XLS数据库工具(跨平台)

知识大全从MySQL导出XLS数据库工具(跨平台)