Previous Post C언어] 숫자 천 단위, 3자리마다 쉼표(콤마) 넣기; 1000 Number Comma

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

Saturday, February 24, 2007

스폰서 링크

아라비아 숫자를 독일어 읽기 발음으로 변환하는 프로그램입니다. 단독으로 실행되지는 않고 별도의 CPAN 모듈을 다운받아서 설치해야 아래의 프로그램이 실행됩니다.

그런데 숫자를 서수로 읽는 함수는 아래의 모듈에 들어 있지 않더군요.

펄 모듈 설치법

< Lingua::DE::Num2Word > 에서

"Lingua-DE-Num2Word-0.03.tar.gz" 라는 파일을 다운로드받은 후, 그 안에서 Num2Word.pm 이라는 파일을 풀어서,

하드에

<펄_라이브러리_디렉토리>\Lingua\DE

이런 구조의 디렉토리(폴더)를 만들고, DE 라는 최종 폴더 속에 Num2Word.pm 파일을 넣어주면 설치가 끝납니다.

참고로 저의 경우에는

D:\myhome\perl_\site\lib\Lingua\DE

이런 폴더를 만들었습니다. 더 자세한 것은 여기를 참조: ▶▶ 펄/Perl] 아라비아 숫자를, 일본어 숫자 읽기 발음으로 변환, Lingua-JA-Number

아라비아 숫자를 독어 발음(스펠링)으로 쓰기/변환 예제

파일명: example.pl
(한글 윈도우에서는 독어의 움라우트 문자를 표시할 수 없기에, UTF-8 유니코드 파일로 결과를 출력합니다. out.txt 라는 파일이 생성됩니다.)

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

use Lingua::DE::Num2Word;

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

for (my $i = 0; $i <= 125; $i++) {
printf OUT ("%d = %s\n", $i, Lingua::DE::Num2Word::num2de_cardinal($i));
}

for (my $i = 100; $i <= 12500; $ i+= 100) {
printf OUT ("%d = %s\n", $i, Lingua::DE::Num2Word::num2de_cardinal($i));
}

위의 스크립트를 실행한 출력 결과는 여기에 있습니다: ▶▶ 독일어 숫자 읽기, 아라비아 숫자를 독어로 세기; Arabic Number To German Spell

▶▶ Perl/펄] 숫자를 영어 스펠링으로 변환; 영어식으로 읽기; Number to English

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

더 보기:

☞ Perl | 펄

0 Comments: