[perl]Spread::ExcelWrite에서 한글 사용

일케 쉬운걸 왜..왜..왜 찾을 수가 없었을까?

#!/usr/bin/perl -w

use strict;
use Spreadsheet::WriteExcel;
use Unicode::Map;

# simple.xls라는 worksheet를 만든다.

my $workbook  = Spreadsheet::WriteExcel->new("simple.xls");
my $worksheet = $workbook->add_worksheet();

# 한글을 unicode로 만들어서 write_unicode를 사용해서 worksheet에 기록

my $map   = Unicode::Map->new("EUC-KR");
my $utf16 = $map->to_unicode("이것은 한글 테스트 입니다.");
$worksheet->write_unicode(6, 0,  $utf16);    # TeX revision no.?