Bonjour,
J'aimerais savoir comment faire un programme Perl pour convertir de 1 à 20 (ou plus) en lettres.
Merci de votre aide.
Bonjour,
J'aimerais savoir comment faire un programme Perl pour convertir de 1 à 20 (ou plus) en lettres.
Merci de votre aide.
Il faut que tu installes le module Lingua::FR::Numbers.
Voilà le résultat
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"; }
Si c'est bon, n'oublie pas de mettre le post en résolu.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
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.
Lisez ceci pour installer un module perl sous Windows.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager