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

#!/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.?

크리에이티브 커먼즈 라이센스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.