Discussion :

[funmatica]

Bonjour,
J'aimerais savoir comment faire un programme Perl pour convertir de 1 à 20 (ou plus) en lettres.
Merci de votre aide.

[djibril]

Il faut que tu installes le module Lingua::FR::Numbers.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use warnings;
use strict;
 
use Lingua::FR::Numbers qw(number_to_fr ordinate_to_fr);
for my $nombre (1..20) {
  print "$nombre : ",number_to_fr( $nombre ),"\n";
}

Voilà le résultat

1 : un
2 : deux
3 : trois
4 : quatre
5 : cinq
6 : six
7 : sept
8 : huit
9 : neuf
10 : dix
11 : onze
12 : douze
13 : treize
14 : quatorze
15 : quinze
16 : seize
17 : dix-sept
18 : dix-huit
19 : dix-neuf
20 : vingt

Si c'est bon, n'oublie pas de mettre le post en résolu.

[funmatica]

Il faut que tu installes le module Lingua::FR::Numbers.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use warnings;
use strict;
 
use Lingua::FR::Numbers qw(number_to_fr ordinate_to_fr);
for my $nombre (1..20) {
  print "$nombre : ",number_to_fr( $nombre ),"\n";
}

Voilà le résultat



Si c'est bon, n'oublie pas de mettre le post en résolu.

J'ai installée Lingua::FR::Numbers, mais quand j'ai appliquée le Makefile dans CMD, j'ai eu un message pour installer GCC. Je l'ai fait, mais là j'arrive tjrs pas à faire marcher le code que vous m'aviez donné: je reçois ce message: Can't locate Lingua/fr/Numbers.pm in @INC (@INC contains C:/Perl/site/lib C:/Perl BEGIN failed--compilation aborted at chif.pl line 5) La ligne 5 qui correspond à use Lingua::FR::Numbers qw(number_to_fr ordinate_to_fr);
Merci de votre aide.

[djibril]

Lisez ceci pour installer un module perl sous Windows.