Bon on ne se refait pas, je dois avoir chopé une sorte de maladie qui fait que j’aime réécrire des trucs en Perl, ça commence à devenir inquiétant diront certains, probablement, mais tant que ça m’amuse je ne vois pas pourquoi arrêter.

Bon venons-en au fait, j’ai un script bin/mawebapp.pl :

#!/usr/bin/perl

use Dancer;

get '/' => sub {
    "Hello There!"
};

get '/hello/:name' => sub {
    my $params = shift;

    "Hey ".$params->{name}.", how are you?";
};

Dancer->dance;

Je lance cet objet numérique étrange …

$ perl bin/mawebapp.pl
== Entering the dance floor ...
>> Listening on 0.0.0.0:8080

… Puis je joue avec

$ curl http://localhost:8080/
Hello There!

$ curl http://localhost:8080/hello/YouFreak
Hey YouFreak, how are you?

Merci oz !

Bientôt disponible sur github pour ceux qui veulent jouer avec moi c’est ici.

UPDATE 23 Juillet

Quelques corrections dans ce billet sur les exemple de code, pour un détail plus complet sur ce framework, je vous invite à lire le README ou à regarder l’application d’exemple fournie avec le source.

No related posts.