Perl/펄] 숫자 한글 발음으로 읽기, 한글 변환; Number To Korean; Spell Out

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


  &help if $#ARGV == -1;

  my %N2K = qw( 1 일 2 이 3 삼 4 사 5 오 6 육 7 칠 8 팔 9 구 10 십 100 백 1000 천 );
  my @N2K_BLOCK = ("", "만", "억", "조", "경", "해", "자", "양", "溝", "澗", "正", "載", "極", "恒河沙", "阿僧祇", "那由他", "不可思議", "無量大數");


  print &numberToKorean(@ARGV), "\n";




sub numberToKorean {
  my $n = join "", @_;               # 모든 파라미터 합치기 (공백 넣은 숫자 처리 위해)

  my @sign = $n =~ /(^[+-]?)/;       # +- 부호 있으면 저장

  my @fraction = $n =~ /(\.\d.*$)/;  # 소수점 이하 저장
  $n =~ s/(\.\d.*$)//;               # 소수점 이하 삭제



  $n =~ s/\D//g;                     # 숫자 속의 쉼표 등, 숫자가 아닌 문자는 모두 제거

  return ""   if $n eq "";           # 숫자가 없으면 빈 문자열 반환

  # 0 이면 "영"을 반환
  return join("", @sign, "영", @fraction) if $n == 0;


  $n =~ s/^0{1,}//g;                 # 앞쪽에 붙은 0 모두 제거

  # 999999999999999999999999999999999999999999999999999999999999999999999999 (구천구백구십구無量大數...) 초과할 때
  return join("", @sign, "[ ", length($n), " 자리 숫자 ]", @fraction) if length($n) > 72;




  my @result;

  $n      = reverse $n;
  my $bix = 0;

  while ($n =~ /(\d{1,4})/g) {
    my $b = scalar reverse($1);
    my @r = blockof4_to_string($b);

    push @r, $N2K_BLOCK[$bix] if ($bix && @r);

    unshift @result, @r;
    $bix++;
  }

  return join "", @sign, @result, @fraction;
}


sub blockof4_to_string {
  my $n = shift;

  return undef if $n > 9999 or $n < 0;
  return "" unless $n;

  my @result  = ();
  my @digits  = split //, sprintf("%04d", $n);
  my @weights = (1000, 100, 10, 1);

  for my $i (0..3) {
    next unless $digits[$i];
    my $v = $digits[$i] * $weights[$i];
    push @result, $N2K{$v} || ($N2K{$digits[$i]}, $N2K{$weights[$i]});
  }

  return @result;
}


sub help {
  die <<TEXT;

                 아라비아 숫자를 한글 발음으로 변환 출력 v1.0

             ( Original Source: "Lingua::JA::Number" from CPAN )



                       사용법 : num2ko.pl <number>



                                사용 예제
..............................................................................
num2ko.pl 12345                 num2ko.pl 1111111111111
num2ko.pl 12,345                num2ko.pl 1,111,111,111,111
num2ko.pl 12 345                num2ko.pl 1 111 111 111 111
num2ko.pl 1,2345                num2ko.pl 1,1111,1111,1111
num2ko.pl 1_2345                num2ko.pl 1_1111_1111_1111

일만이천삼백사십오              일조천백십일억천백십일만천백십일

..............................................................................
num2ko.pl 94653744647457537433652113614151363276249302490701430870312503074407
9053

구천사백육십오無量大數삼천칠백사십사不可思議육천사백칠십사那由他오천칠백오십삼
阿僧祇칠천사백삼십삼恒河沙육천오백이십일極천삼백육십일載사천백오십일正삼천육백
삼십이澗칠천육백이십사溝구천삼백이양사천구백칠자백사십삼해팔백칠십경삼천백이십
오조삼백칠억사천사백칠만구천오십삼
..............................................................................
구 간 정 재 극 항하사 아승기 나유타 불가사의 무량대수
溝 澗 正 載 極 恒河沙 阿僧祇 那由他 不可思議 無量大數
TEXT
}