쵝오 만들기.

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Lingua::KO::Hangul::Util qw(:all);
use Encode;
 
my $str = '김하늘은 팔색조 같은 매력과 패션 스타일로 젊은 여성들을 열광시키기에 이르렀고, 화려한 스포트라이트를 받은 그녀에겐 절대적인 휴식이 필요했다';
 
# UTF-8 터미널 환경이면 아랫줄 그냥 print $str,"\n";  으로 수정.
print encode('cp949',$str),"\n";
 
 
$str = decomposeSyllable($str);
 
$str =~ s/([\x{1161}-\x{1175}])\x{1100}/$1\x{11a8}\x{110b}/g; #중성뒤 초성 ㄱ ->  종성 ㄱ,초성 ㅇ
$str =~ s/([\x{1161}-\x{1175}])\x{1102}/$1\x{11ab}\x{1112}/g; #중성뒤 초성 ㄴ ->  종성 ㄴ,초성 ㅎ
$str =~ s/([\x{1161}-\x{1175}])\x{1105}/$1\x{11af}\x{110b}/g; #중성뒤 초성 ㄹ ->  종성 ㄹ,초성 ㅇ
$str =~ s/([\x{1161}-\x{1175}])\x{1110}/$1\x{11ba}\x{1112}/g; #중성뒤 초성 ㅌ ->  종성 ㅅ,초성 ㅎ
$str =~ s/([\x{1161}-\x{1175}])\x{1111}/$1\x{11b8}\x{1112}/g; #중성뒤 초성 ㅍ ->  종성 ㅂ,초성 ㅎ
$str =~ s/([\x{1161}-\x{1175}])\x{110f}/$1\x{11a8}\x{1112}/g; #중성뒤 초성 ㅋ ->  종성 ㄱ,초성 ㅎ
$str =~ s/\x{11af}\x{1103}/\x{11af}\x{1104}/g;                #종성 ㄹ, 초성 ㄷ -> 종성 ㄹ, 초성 ㄸ
$str =~ s/\x{11af}\x{1109}/\x{11af}\x{110a}/g;                #종성 ㄹ, 초성 ㅅ -> 종성 ㄹ, 초성 ㅆ
$str =~ s/\x{11bb}\x{1103}/\x{1104}/g;                        #종성 ㅆ, 초성 ㄷ -> 초성 ㄸ
$str =~ s/\x{11c0}\x{110b}/\x{1110}/g;                        #종성 ㅌ, 초성 ㅇ -> 초성 ㅌ 
 
$str = composeSyllable($str);
 
print encode('cp949',$str),"\n";

김하늘은 팔색조 같은 매력과 패션 스타일로 젊은 여성들을 열광시키기에 이르렀고,
화려한 스포트라이트를 받은 그녀에겐 절대적인 휴식이 필요했다
 
김한흘은 팔쌕조 가튼 맬역과 패션 슷하일로 젊은 여성들을 열광식힉이에 일을었고,
활여한 습홋흘아잇흘을 받은 근혀엑엔 절때적인 휴식이 필요해따