Perl, 한글 확장완성형 코드 영역 출력 - CP949 Code

#!/usr/bin/perl
use strict; use warnings;

=pod
########################################################################
Hangul cp949 (Wansung) Character Code Table Generator


완성형 코드의 특수 문자 영역 = "　":A1A1 ~ я:ACF1
특수문자 속의 한글 자모 영역 =   ㄱ:A4A1 ~ ㆎ:A4FE

완성형 코드의 한글 음절 영역 =   가:B0A1 ~ 힝:C8FE
완성형 코드의 한자 영역      =   伽:CAA1 ~ 詰:FDFE


확장 완성형 한글 영역은 소스 코드 본문 참조. (똠방각하의 '똠'자 등)

(※ A1A1은 2바이트 공백 문자이며, 보이지 않음)
########################################################################
=cut




print "// 완성형 영역 문자 출력 (A1A1 ~ FEFE)\n";
&printCP949CodeArea(0xA1, 0xA1, 0xFE, 0xFE);




print "// 확장 완성형 Set 1-1 (8141 ~ A05A)\n";
&printCP949CodeArea(0x81, 0x41, 0xA0, 0x5A);

print "// 확장 완성형 Set 1-2 (8161 ~ A07A)\n";
&printCP949CodeArea(0x81, 0x61, 0xA0, 0x7A);

print "// 확장 완성형 Set 1-3 (8181 ~ A0FE)\n";
&printCP949CodeArea(0x81, 0x81, 0xA0, 0xFE);

print "// 확장 완성형 Set 2-1 (A141 ~ C65A)\n";
&printCP949CodeArea(0xA1, 0x41, 0xC6, 0x5A);

print "// 확장 완성형 Set 2-2 (A161 ~ C67A)\n";
&printCP949CodeArea(0xA1, 0x61, 0xC6, 0x7A);

print "// 확장 완성형 Set 2-3 (A181 ~ C6A0)\n";
&printCP949CodeArea(0xA1, 0x81, 0xC6, 0xA0);




########################################################################
# $i 는, 1번째 바이트 (Lead Byte) 의 범위
# $j 는, 2번째 바이트 (Trail Byte) 의 범위
#
# 모두 4개의 파라미터를 받는 서브루틴
#
# ...(영역시작 첫째바이트$_[0], 영역시작 둘째바이트$_[1], 영역끝 첫째바이트$_[2], 영역끝 둘째바이트$_[3])

sub printCP949CodeArea {
  for (my $i = $_[0]; $i <= $_[2]; $i++) {         # LeadByte  (Left Byte)
    for (my $j = $_[1]; $j <= $_[3]; $j++) {       # TrailByte (Right Byte)
      printf("%02X%02X: %c%c\n", $i, $j, $i, $j);
    }
  }
}