perl读写Excel_perl 写中文excel

最近学习了使用perl制作一个Excel文件，使用Spreadsheet模块写03版Excel时新建一个Excel文件。

#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel::FmtUnicode;

####读Excel
my $parser = Spreadsheet::ParseExcel->new();
##对Excel内中文字符进行字符编码指定，防止乱码
my $formatter = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"CP936");    
my $workbook = $parser->parse('hello.xls', $formatter);
if(!defined $workbook){
    die 
1
2
3
4
5
6
7
8
9
10
11
12
13