这个脚本是使用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 expressi>#生成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 d>#结束 END {
$report->close() if ($report);
$dbh->disc>}
选择5ucms.org 选择未来
上一篇:5ucms教程,MySQL两种表存储结构性能比较测试过程 下一篇:5ucms仿站,教你如何在Linux/Unix平台安装MySQL |
|
本站声明:本网站所载文章等内容,目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权及其它问题,请在30日内与本网联系(Email:3876307#qq.com),我们将在第一时间删除内容。若原创内容转载请注明出处。 5ucms教程,教你如何从MySQL导出XLS数据库工具的关键词: |