欢迎进入oracle社区论坛，与200万技术人员互动交流 >>进入 这个脚本是使用perl生成excel xls文件的工具。依赖一些模块，你可以在linux下使用，产生xls文件。使用方式是命令行+参数。非常方便。 #!/usr/bin/perl #=============================== # mysql to
欢迎进入oracle社区论坛，与200万技术人员互动交流 >>进入
这个脚本是使用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;
}
[1] [2]