使用PERL读写EXCEL

用Perl读写Excel文件
最近写一个小脚本，读取Excel文件中的内容，经过处理后，生成新格式的Excel文件，将一些用法着一个小小的总结。

读取Excel文件中的内容，模块Spreadsheet::ParseExcel的一些常见用法
得到一个workbook对象：
my$excel=new Spreadsheet::ParseExcel;
my$fmt=Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"cp936");
my$workbook=$excel->Parse($file,$fmt);
得到excel文件中的表格数目：
$sheet_nums=$workbook->worksheet_count();
得到一个表格对象（这里的$sheet_num是表格的索引，从0开始计数）：
$sheet=$workbook->worksheet($sheet_num);
获取表名：
my$sheetname=$sheet->get_name();
转换编码
$sheetname=decode('utf-8',$sheetname);
得到最大、最小行序（不是很准）
my($row_min,$row_max)=$sheet->row_range();
取单元格的值，在取之前最好能判断一下：
if($sheet->get_cell($row_num,$col_num)){
my$code=$sheet->{Cells}[$row_num][$col_num]->Value();
}
生成Excel文件，模块Spreadsheet::WriteExcel的一些常见用法
定义一个workbook对象
my$workbook=Spreadsheet::WriteExcel->new($filename);
定制一种格式
my$fmt4=$workbook->add_format(
border=>1,
bold=>1,
color=>'black',
size=>11,);
border样式为1，具体的样式可以从方档中查询
bold加粗
color字体颜色
size字体的大小
也可以这样设置格式：
my$fmt_OK=$workbook->add_format();
$fmt_OK->set_bg_color('green');
$fmt_OK->set_border_color('black');
$fmt_OK->set_border(1);
添加一个表格，注意中文表名，要设置编码，gbk或utf-8，自己试一试，我也搞不明白：
$sheetname=decode('gbk',$sheetname);
my$sheet=$workbook->add_worksheet($sheetname);
在某个单元格中填写数据（注意，对于写过的表格，不要再使用write，这样生成的excel文件打开时会报错），给定行、列、内容、格式，其中格式可能省略:
$sheet->write($row,1,$records[0],$fmt);
设置列宽，第3列至第34列列宽为2，（这里的参数是列的索引，索引是从0开始的）：
$sheet->set_column(2,33,2);
设置行高（$row为行索引）：
$sheet->set_row($row,13.5);
关于合并单元格的内容，（参数分别为左上角行序、左上角列序、右下角的行序、右下角列序、内容、格式）再次提醒，不要在同一个格中重复写文，不然生成的excel表格打开时报错：
$sheet->merge_range($row,0,$row+1,1,decode('utf-8',"日期"),$fmt);
如果有其他们需求可以在模块的文档中搜索"merge",文档中有示例。