#!/usr/bin/perl
use Unicode::Map;
use Spreadsheet::WriteExcel;
my $workbook = Spreadsheet::WriteExcel->new("test.xls");
my $worksheet1 = $workbook->add_worksheet();
my $map = Unicode::Map->new("gb2312");
$abc = $map->to_unicode("第二个");
$worksheet1->write(0,0,"Hi Excel!");
$worksheet1->write_unicode(0,1,$abc);
$worksheet1->write(0,2,"the 3");
$worksheet1->write_string(0,3,"the 4");
$worksheet1->write(1,0,"2-1");
$worksheet1->write(1,1,"2-2");
$workbook->close();
use Unicode::Map;
use Spreadsheet::WriteExcel;
my $workbook = Spreadsheet::WriteExcel->new("test.xls");
my $worksheet1 = $workbook->add_worksheet();
my $map = Unicode::Map->new("gb2312");
$abc = $map->to_unicode("第二个");
$worksheet1->write(0,0,"Hi Excel!");
$worksheet1->write_unicode(0,1,$abc);
$worksheet1->write(0,2,"the 3");
$worksheet1->write_string(0,3,"the 4");
$worksheet1->write(1,0,"2-1");
$worksheet1->write(1,1,"2-2");
$workbook->close();