從mysql導(dǎo)出xls數(shù)據(jù)庫工具

《從mysql導(dǎo)出xls數(shù)據(jù)庫工具》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫。

1、從MySQL導(dǎo)出XLS數(shù)據(jù)庫工具>>教育資源庫　　這個腳本是使用Perl生成excelxls文件的工具。依賴一些模塊，你可以在linux下使用，產(chǎn)生xls文件。使用方式是命令行+參數(shù)。非常方便。#!/usr/bin/perl#===============================#mysqltoexcel#lastmodifyat2005-1-5#copyrightbyhooy$hostname='192.168.1.133';my$username='user';my$passy$dbname='db

2、';my$trans_press=1;#任何非一的數(shù)關(guān)閉數(shù)據(jù)庫到程序間傳輸壓縮$

3、=1;mycols=('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'

4、;,'Q:Q','R:R','S:S','T:T','U:U','V:V','M:M','NN:N','OO:O','PP:P',':Q','RR:R','SS:S','TT:T','UU:U','VV:V','E'}};if($#cols_name>$#cols){print

5、table$ARGV[1]fieldsoutofalloaxnum.>.($#cols+1).);exit;}y$map=Unicode::Map->ney$report=Spreadsheet::at();$title_style->set_size(11);$title_style->set_bold();$title_style->set_align('center');#初始化數(shù)據(jù)指針my$sheet_col=0;#創(chuàng)建表格for(my$i=0;$i<=$#cols_name;$i++){$

6、sheet->set_column($cols[$i],length($cols_name[$i])+4);$sheet->ap->to_unicode($cols_name[$i]),$title_style);}$sheet->freeze_panes(1,0);#凍結(jié)行12下一頁>>>>這篇文章來自..，。yroy$i=0;$i<=$#cols_name;$i++){nextif($roap->to_unicode($row[$i]));}}warnalldone!!!;#結(jié)束END{$report->

7、close()if($report);$dbh->disconnect();}上一頁12>>>>這篇文章來自..，。