Perl/펄] 프랑스어 숫자 읽기, 서수로 세기; Number to French Spell
Thursday, December 14, 2006
스폰서 링크아라비아 숫자를, "프랑스어" 스펠링으로 변환하여 출력하는 스크립트입니다.
즉, "불어로 숫자 세기" 프로그램입니다.
그런데 출력을 그냥 한글로 하면, 악상 기호들이 한글과 충돌하여 깨지기에, 유니코드(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
위의 스크립트 출력 결과: ▶▶ 프랑스어/불어] 숫자 읽기, 서수로 세기; Number to French Spell
▶▶ Perl/펄] 독일어 숫자 읽기, 아라비아 숫자를 독어로 세기; Arabic Number To German Spell
☞ Perl(펄)
즉, "불어로 숫자 세기" 프로그램입니다.
그런데 출력을 그냥 한글로 하면, 악상 기호들이 한글과 충돌하여 깨지기에, 유니코드(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));
}
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
☞ Perl(펄)
Post a Comment
<< Home