펄/Perl] 아라비아 숫자를, 일본어 숫자 읽기 발음으로 변환, Lingua-JA-Number

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

use Lingua::JA::Number qw(to_string);


  for (my $i = 1; $i <= 20; $i++) {        # 1에서 20까지 출력
    print $i, " = ", join('-', to_string($i)), "\n";
  }


  # 특정 숫자 출력
  print join('-', to_string(10000)), "\n"; # ichi-man
  print join('-', to_string(32001)), "\n"; # san-man-ni-sen-ichi
  print join('-', to_string(11111111)), "\n"; # sen-hyaku-ju-ichi-man-sen-hyaku-ju-ichi
  print join('-', to_string(5364655543)); # go-ju-san-oku-roku-sen-yon-hyaku-roku-ju-go-man-go-sen-go-hyaku-yon-ju-san