Composer des boites de dialogues

Il existe des modules CPAN de toutes catégories pour construire des interfaces en mode texte avec Perl. Curses est peut être une des plus connues. Le module Tui s'appuie d'ailleurs dessus pour proposer de façon un peu plus simple une méthode pour construire des boites de dialogues.

use Curses;
use Tui;

Tui::init;
Tui::background;
refresh;
Tui::msgbox("Titre","Message");

my ($label) = new Tui::Label("Label",2,2);
my ($entry) = new Tui::Entryfield("Votre nom",2,4,20,20);
my ($ok) = new Tui::Button("OK",18,5);
my ($form) = new Tui::Form("A form",1,1,27,10,1);
$form->add($label,$entry,$ok);
my ($result,$widgetno) = $form->run;
my ($name) = $entry->data;

endwin;
print "your name is $name\n";