perl 写入excel文件时字符集
#这个比默认utf8字更多，否则个别中文字会有乱码

my $maps=new  Unicode::Map("CP936");my $workbook = Spreadsheet::WriteExcel->new("/home/perl/report/test.xls");my $format = $workbook->add_format();$format->set_align('center');#设置对齐方式

my $totalworksheet = $workbook->add_worksheet(decode('gb2312',"$forum统计"));$totalworksheet->set_column('A:A',30);  $totalworksheet->set_column('B:B',15);  $totalworksheet->set_column('C:C',10);$totalworksheet->set_column('L:L',20);  $totalworksheet->set_column('M:M',20); $ps = $conn->prepare("SELECT DISTINCT .. ");$ps->execute;$totalworksheet->write_unicode(0, 0, $maps->to_unicode("名称"),$format);$totalworksheet->write_unicode(0, 1, $maps->to_unicode("总量"),$format);...