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

    这个脚本是使用Perl生成Excel xls文件的工具。依赖一些模块，你可以在linux下使用，产生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 <writefilename> "[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",

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