求助：Spreadsheet::WriteExcel能不能很好的支持中文？

heya

1. $worksheet->write(1,3,'统计时间:');

复制代码

结果：ͳ¼Æʱ¼ä:
谢谢大家了

heya

网上说支持的。
我估计是我自己机子的字符集有问题，可实在不知道改怎么整。

ulmer

Hi,

ref. to Perl CPAN module Encode.

use Encode;
# to write using encode(...);
# to read using decode(...);

Best,
    ulmer

heya

原帖由 ulmer 于 2006-7-14 19:01 发表
Hi,

ref. to Perl CPAN module Encode.

use Encode;
# to write using encode(...);
# to read using decode(...);

Best,
    ulmer

谢谢！根据ulmer的提示，解决了问题。

测试脚本：

1. 
   
2. use Encode;
   
3. use Spreadsheet::WriteExcel;
   
4. 
   
5. my $workbook=Spreadsheet::WriteExcel->new('d:\perl.xls');
   
6. my $worksheet=$workbook->add_worksheet(decode('GB2312',"永坪PAS欠费"));
   
7. my $format=$workbook->add_format();
   
8. $format->set_bold();
   
9. $format->set_color('red');
   
10. $format->set_align('center');
    
11. $worksheet->write(0,1,decode('GB2312',"永坪PAS欠费"),$format);
    
12. $worksheet->write(1,2,decode('GB2312','统计时间:'));
    
13. 
    
14. $workbook->close();
    

复制代码