Le module Term::Clui ne propose pas tout à fait des
boites de dialogues, il intervient plutôt en ligne de commandes mais offre
tout de même des interfaces de saisies particulièrement puissantes
et pourtant très simples à utiliser.
La fonction choose() dispose même d'un curseur qui permet à
l'utilisateur de valider son choix parmi une liste d'option.
use Term::Clui;
my @list = qw(Bleu Rouge Vert);
my $couleur = &choose('Votre couleur favorite',@list);
my $result = &confirm("Vous aimez le $couleur\n");
if($result) {
print "Moi aussi j'aime bien le $couleur\n";
}
else {
print "Il faudrait savoir\n";
}