程式師世界 >> 數據庫知識 >> Oracle數據庫 >> Oracle數據庫基礎 >> 用Perl的WriteExcel生成電子數據表格

用Perl的WriteExcel生成電子數據表格

編輯：Oracle數據庫基礎

許多商業最終用戶更喜歡使用目前流行的電子數據表格程序（如Microsoft Excel），而不是數據庫功能或應用程序。盡管Excel可以用ODBC及相關技術來提取儲存在Oracle數據庫當中的數據，但想讓用戶建立一個環境來直接訪問數據或是通過安裝腳本來安裝數據資源可能會不大合理。

因此，對於程序開發人員來說，從儲存在數據庫中的數據生成一個電子數據表格，並通過e-mail或網站將其文檔傳回用戶手中，是一個非常基本的一般要求。

關於如何生成Excel電子數據表格，一個典型回答是，生成一個CSV（comma-separated values）文件，在這裡每一個字段都用一個Text屬性來說明，可能包含在引號裡。這種情況下，這個文件作為原始數據被終端用戶接受，終端用戶在Excel下打開它，通過一個對話將數據正確的分解成電子數據表格中的單元格。

也可能僅僅通過傳送作為一個電子數據表格屬性的公式（如“=A1+B1”），將這些公式寫進電子數據表格，而這個公式只有在字段被准確讀取到正確位置時才會有用。在這種情況下，沒有格式化控制，當數據讀入時，最終用戶只能手工將一個電子數據表格重新格式化。

一個Perl替代品

現在有了一個非常有用的CSV文件的替代品。John McNamara創建了一個Perl模塊，叫做Spreadsheet::WriteExcel，它能動態生成一個真正的、二進制的、Excel的電子數據表格文件。

在這個模塊中，你可以創建一個工作手冊，並在其中加入工作表，然後直接寫入工作表單元格。有許多格式化選項允許你改變字段數據的格式、黑體、對齊方式、字體、前景和背景顏色、填充圖案以及邊框。

另外，Spreadsheet::WriteExcel可以改變字體，文字變形和旋轉文字，插入位圖，設置密碼保護工作表，以及建立能用鼠標擴展的數據集合。當然還能夠設置打印選項和頁面暫停的功能。

該模塊還可以寫標准輸出數據，因此它可以在cgi-bin程序中使用。其他程序語言可以通過HTTP URL參照CGI-bin，來請求Excel電子數據表格電子數據表格。

下面是一個例子，它用DBI從EMP表中提取數據並用公式和格式化生成一個Excel電子數據表格電子數據表格。

　　

　　use DBI;

　　use Spreadsheet::WriteExcel;

　　

　　# connect to the local database

　　my $dbh = DBI->connect('dbi:Oracle:','scott','tiger') || dIE $DBI::errstr;

　　

　　print "Generating Excel Spreadsheet\n";

　　my $workbook = new Spreadsheet::WriteExcel "emp.xls";

　　my $worksheet = $workbook->add_worksheet();

　　my $fmt = {

　　　　HEADER => $workbook->add_format(bold=>1,align=>'center',

　　　　　　bottom=>2,bg_color=>'silver'),

　　　　ENAME => $workbook->add_format(bold=>1,color=>'blue'),

　　　　MONEY => $workbook->add_format(

　　　　　　num_format=>'$#,##0.00',align=>'right'),

　　　　TOTAL => $workbook->add_format(

　　　　　　num_format=>'$#,##0.00',align=>'right',bold=>1,

　　　　　　top=>2),

　　};

　　

　　print "Querying Employees\n";

　　my $sth = $dbh->prepare('select * from emp') || dIE $DBI::errstr;

　　my $rc = $sth->execute;

　　my $r = 1;

　　$worksheet->write($r-1,0,'Employee',$fmt->{HEADER});

　　$worksheet->write($r-1,1,'Salary',$fmt->{HEADER});

　　$worksheet->write($r-1,2,'Commission',$fmt->{HEADER});

　　$worksheet->write($r-1,3,'Total',$fmt->{HEADER});

　　$r++;

　　while (my $row = $sth->fetchrow_hashref)

　　{

　　　　$worksheet->write($r-1,0,$row->{ENAME},$fmt->{ENAME});

　　　　$worksheet->write($r-1,1,$row->{SAL},$fmt->{MONEY});

　　　　$worksheet->write($r-1,2,$row->{COMM},$fmt->{MONEY});

　　　　$worksheet->write($r-1,3,"=B$r+C$r",$fmt->{MONEY});

　　　　$r++;

　　}

　　$worksheet->write($r-1,0,'',$fmt->{TOTAL});

　　$worksheet->write($r-1,1,'=SUM(B2:B'.($r-1).')',$fmt->{TOTAL});

　　$worksheet->write($r-1,2,'=SUM(C2:C'.($r-1).')',$fmt->{TOTAL});

　　$worksheet->write($r-1,3,"=B$r+C$r",$fmt->{TOTAL});

　　print "Processed " . ($r-2) ." rows\n";

　　$sth->finish;