mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Thursday, December 14, 2006

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


아라비아 숫자를, "프랑스어" 스펠링으로 변환하여 출력하는 스크립트입니다.

즉, 불어로 숫자 세기 프로그램입니다.

그런데 출력을 그냥 한글로 하면, "악상 기호"들이 한글과 충돌하여 깨지기에, 유니코드(UTF-8) 파일로 출력해야 합니다. 여기서는 out.txt 라는 이름의 유니코드(UTF-8)파일로 저장됩니다.


다음의 스크립트를 실행하려면, 윈도우에 액티브펄(ActivePerl)을 설치한 후,

< Lingua-FR-Numbers > (LinguaFRNumbers - Converts numeric values into their French string equivalents - search.cpan.org)

라는 펄 모듈을 별도로 다운로드받아서 설치해 주어야 합니다. 자세한 설치법은 여기에 있습니다: ▶▶ Perl/펄] 숫자를 영어 스펠링으로 변환; 영어식으로 읽기; Number to English


불어로 숫자 읽기 펄 스크립트 소스


※ 아래 박스 클릭 후, 키보드 화살표 키로 좌우 스크롤 가능함
#!/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));
  }




위의 스크립트 출력 결과 보기: ▶▶ 프랑스어/불어] 숫자 읽기, 서수로 세기; Number to French Spell


▶▶ Perl/펄] 독일어 숫자 읽기, 아라비아 숫자를 독어로 세기; Arabic Number To German Spell




tag: perl
Perl | 펄

0 Comments:

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top