perl 写入excel文件时字符集

最新推荐文章于 2017-12-09 15:49:04 发布

lovejianglan

最新推荐文章于 2017-12-09 15:49:04 发布

阅读量260

点赞数

分类专栏： perl 文章标签： Perl Excel Java C C++

本文链接：https://blog.csdn.net/lovejianglan/article/details/83673447

版权

perl 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

[color=red]#这个比默认utf8字更多，否则个别中文字会有乱码[/color]

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);

.
.
.