使用perl语言读数据库并将数据写入Excel

#需要使用的模板

use strict;

use Spreadsheet::ParseExcel;

use Spreadsheet::WriteExcel;

use Spreadsheet::ParseExcel::FmtUnicode;

use Unicode::Map();#该引用是为了实现中文的写入

use DBI;

use Encode;

 

#需要定义的全局变量

my $MYEXCEL;

my $dest_book;

my $sheet;

my $dest_sheet1;

my $Text_Date;

my $Num=3;

 

 

##################################开始生成Excel文件############################

      #生成EXCEL文件名

$MYEXCEL=$OUT_DIR.'//免收//'.$bankname.'