這個腳本是使用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; #任何非一的數關閉數據庫到程序間傳輸壓縮
|
#解析來內容
|
#生成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;
#創建表格
|
#結束
END {
$report->close() if ($report);
$dbh->disconnect();
}