【求助】上次发帖居然写错了，我想往excel单元格里写中文，如何用perl实现啊？？

uuuucat

哪位牛人能帮我解决这个困惑啊，已经弄了好几天了，到现在也不知道怎么弄。。。
上网也去查了，关于这方面的例子查到的不多，所以到论坛里来请教诸位了，谢谢了！！！！
我是新手，现在没有积分，等有了几分一定给你。

hfahe

excel我不清楚 openoffice的sxc表格我倒知道

for example

#!/usr/bin/perl

use strict;
use warnings;
use OpenOffice::OOCBuilder;

# - start sxc document
my $sheet=new OpenOffice::OOCBuilder();

# - Set Meta.xml data
$sheet->set_title ('Test document for OOCBuilder');
$sheet->set_author ('Stefan Loones');
$sheet->set_subject ('How to use OOCBuilder & parent class OOBuilder');
$sheet->set_comments ('Fill in your comments here');
$sheet->set_keywords ('openoffice autogeneration', 'OpenOffice::OOBuilder');
$sheet->push_keywords ('OpenOffice::OOCBuilder');
$sheet->set_meta (1, 'name 1', 'value 1');

# - Set name of first sheet
$sheet->set_sheet_name ('MySheet_1',1);
# - Set some data
# columns can be in numbers or letters
$sheet->set_data_xy (1, 1, '你好');
$sheet->set_data_xy ('C', 2, 'cell C2');
$sheet->goto_cell ('F8');
$sheet->set_data ('cell F8');

# numerique values
$sheet->set_data_xy ('D', 1, 12.25, 'float');
$sheet->set_data_xy ('D', 2, 9.13, 'float');

# formula and style blue & bold
$sheet->set_bold (1);
$sheet->set_txtcolor('blue');
$sheet->set_data_xy ('D', 3, '=SUM(D12)', 'formula');

# - reset style
$sheet->set_bold (0);
$sheet->set_txtcolor('black');

# - go down 5 rows
$sheet->move_cell ('down', 5);
$sheet->set_data ('5 rows down');

# - add another sheet, select it, name it, and put data in it
$sheet->add_sheet;
$sheet->goto_sheet (2);
$sheet->set_sheet_name ('MySheet_2');
$sheet->set_italic (1);
$sheet->set_data_xy (1, 1, 'sheet 2 cell A1');
$sheet->set_italic (0);

$sheet->generate ('example1');
print "example1.sxc generated\n";
exit;

orangetouch

我记得只要转成unicode就可以了吧？

uuuucat

我编了一段代码，想手动往excel的单元格里写入中文，但是打开excel以后，里面显示的是两个小格子。
#!/usr/local/perl5/bin/perl
use Spreadsheet::WriteExcel;
use Unicode::Map;
my $Map=new Unicode::Map("GB2312");
my $name="中文";
my $workbook=Spreadsheet::WriteExcel->new("AAAAA.xls");
my $worksheet=$workbook->add_worksheet();
$worksheet->write_unicode(2,2,$Map->to_unicode($name));

三楼的哥们，你帮我看看这段代码有问题吗？我现在是在linux环境下工作的。

uuuucat

也谢谢二楼的哥们了！！！刚才给忘了....

hfahe

搜一搜
http://www.enet.com.cn/article/2006/1123/A20061123305259.shtml

uuuucat

刚才才发现，我刚才贴出来的那段代码运行的结果，在linux的环境下查看excel，里面显示的就是乱码；
当我把这个excel复制到windows下查看的时候能显示中文。
我现在想解决的问题是把一个页面上的数据（中英文都有）另存为一个excel表，当前页面的数据是从MySQL里面导出来的。页面上能正常显示中英文，但是我的excel（linux环境）却是乱码，我把这个表格弄到windows下面还是乱码，这个问题应该不是数据库里边数据的问题吧？
谢谢楼上的兄弟了，我上网查到的关于perl和excel的例子也是那个，你有没有搜到别的例子啊？？

xiaoyafeng

其实理解了perl unicode 工作机制，还是很好理解的。
搞清楚：
操作系统的编码方式，perl的编码方式， 数据库的编码方式。