Perl/펄] 프랑스어 숫자 읽기, 서수로 세기; Number to French Spell

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

use Lingua::FR::Numbers qw( number_to_fr ordinate_to_fr );


  # 유니코드(UTF-8) 인코딩으로 새 파일 만들기
  open OUT, ">:encoding(UTF-8)", "out.txt" or die "$!\n";


  # 0 출력
  printf OUT ("%d = %s\n", 0, number_to_fr(0));



  for (my $i = 1; $i <= 125; $i++) {
    printf OUT ("%d = %s  (%s)\n", $i, number_to_fr($i), ordinate_to_fr($i));
  }



  for (my $i = 100; $i <= 12500; $i += 100) {
    printf OUT ("%d = %s  (%s)\n", $i, number_to_fr($i), ordinate_to_fr($i));
  }