Command interface : Tab completion in perl

For a project I'm working on just now, and because I'm very lazy, I wanted to have tab completion of the many variable commands entered. Finding a module was easy : Term::ReadLine - finding a simple example was difficult, but in the end I got it.

It is not complete by any means, but it will get you started!

use strict;
use warnings;
use Term::ReadLine;
my $term = new Term::ReadLine 'Simple Perl calc';
my $prompt = "cmd >> ";

my $attribs = $term->Attribs;
$attribs->{completion_function} = sub {
my ($text, $line, $start) = @_;
return qw(a list of candidates to complete);
};

my $OUT = $term->OUT \*STDOUT;
while ( defined ($_ = $term->readline($prompt)) ) {
my $res = eval($_);
warn $@ if $@;
print $OUT $res, "\n" unless $@;
$term->addhistory($_) if /\S/;

}