Gérer l'historique et l'édition en ligne de commande

Utiliser le module Term::ReadLine :

#!/usr/local/bin/perl

use strict;
use Term::ReadLine;

my $term = new Term::ReadLine("Mon programme");

my $prompt = "Prompt => ";

sub input
{
        my $return = $term -> readline($_[0],$_[1]);
        return $return;
}

my $input = "";

while($input ne "quit")
{
        $input = &input($prompt);
        chomp($input);
        print "You type $input !\n";
}

Le module Term::ReadLine n'est pas installé par défaut, il faut aller le chercher sur le CPAN et l'installer. Il utilise la librairie GNU ReadLine si celle ci est installé sur le système et que le module Term::ReadLine::GNU a été installé, sinon il utilise sa propre librairie entièrement en Perl.

Pour plus d'informations :

• man Term::ReadLine