[Perl] nombre en mots

[Thebert Sebastien]

Une version plus light et sans réinventer la roue... :)

plackup -MLingua::FR::Numbers -e 'sub { my $e = shift; my $nb =
$e->{QUERY_STRING}; return [ "200", [], [
Lingua::FR::Numbers::number_to_fr($nb) . "\n" ]] }' &


curl http://127.0.0.1:5000?123456789
cent vingt-trois millions quatre cent cinquante-six mille sept cent
quatre-vingt-neuf


On Mon, Feb 22, 2016 at 9:56 PM Alain BarBason <alain at barbason.be> wrote:

> Le 22/02/16 20:43, Dominix a écrit :
> > bon, chacun mettra a son goût, j'ai ajusté les vingt _et_ un et les 's'
> > des cents.
> >
> > pour passer des paramètres via URL, est ce que le plus simple c'est une
> > app/dancer ? plack ? mojolicious ?
> > merci de vos avis (c'est ma question de départ au final) ... bon je vais
> > voir si hollande arrive, c'est pas souvent qu'il passe dans ma rue.
> >
>
> un peu bourrin
>
> use v5.018;
> use strict;
> use warnings;
> use CGI qw/:standard/;
> use CGI::Carp qw(fatalsToBrowser);
>
> sub nombre_en_mots ($);
>
> # main body of script:
> {
>
> say header(-type => "text/html", -charset => "utf-8");
> say  "parametre : ",param(-name => "number");
>      if (!param(-name => "number") )
>      {
>         die "Error: This program takes exactly one argument, which must
> be\n",
>             "a non-negative integer not exceeding 10^66-1.\n",
>             "$!\n";
>      }
>      my $number = param(-name => "number");
>      say nombre_en_mots($number);
>      exit 0;
> }
> ...
> que tu mets dans /usr/lib/cgi-bin
>
> Et on l’appelle avec
>
> http://localhost/cgi-bin/nombre_en_mots?number=21
>
> reste a faire un page html avec un champ qui appelle le script...
> _______________________________________________
> Perl mailing list
> Perl at mongueurs.net
> http://listes.mongueurs.net/mailman/listinfo/perl
>
-------------- section suivante --------------
Une pièce jointe HTML a été nettoyée...
URL: <http://listes.mongueurs.net/mailman/private/perl/attachments/20160222/887c260e/attachment-0001.html>