[Perl] nombre en mots

[Dominix]

bien joué, j'aurais du poser la question avant ... (mais j'aime bien 
inventer des roues)

Le 22/02/2016 11:13, Thebert Sebastien a écrit :
> 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 
> <mailto: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 <mailto:Perl at mongueurs.net>
>     http://listes.mongueurs.net/mailman/listinfo/perl
>
>
>
> _______________________________________________
> 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/db5df239/attachment.html>