使用Perl生成excel表格

--> use Encode 'decode';
use Spreadsheet::WriteExcel;

#创建一个文件

my $workbook = Spreadsheet::WriteExcel->new("perl.xls");
添加格式
$workbook->add_format('border'=>5);
#创建一个工作表
# Add a worksheet
$worksheet = $workbook->add_worksheet("sheetname");  #如果是中文表名,使用decode('gb2312',"表名")
$worksheet->set_column('A:B', 13);
#  Add and define a format
#设定格式

my $format = $workbook->add_format(); # Add a format
    $format->set_align('left');
    $format->set_font('AR PL ShanHeiSun Uni');

#写入表格:
#此处的内容是中文,需要转码
  $worksheet->write(行序,列序,decode('gb2312',"数据"),格式);

此处的行序,列序起始值为0