CODEWITHSUNDEEP
perlreadlinearrow-keys
Zagorax
Zagorax

Reputation: 11890

How to use Term::ReadLine to retrieve command history?

I've the following script, which is almost the same of the sample in synopsis paragraph in documentation.

use strict;
use warnings;
use Term::ReadLine;

my $term = Term::ReadLine->new('My shell');
print $term, "\n";
my $prompt = "-> ";

while ( defined ($_ = $term->readline($prompt)) ) {
   print $_, "\n";
   $term->addhistory($_);
}

It executes with no error, but unfortunately, even if I click the Up Arrow, I only get ^[[A and no history. What am I missing?

The print $term statement prints Term::ReadLine::Stub=ARRAY(0x223d2b8).

Since we are here, I noticed it prints the prompt underlined... but I can't find in the docs anything which could prevent it. Is there any way to avoid it?

Upvotes: 4

Views: 3186

Answers (1)

Mobius
Mobius

Reputation: 2896

To answer the main question, you probably don't have a good Term::ReadLine library installed. you will want either 'perl-Term-ReadLine-Perl' or 'perl-Term-ReadLine-Gnu'. These are the fedora package names, but i'm sure that the ubuntu/debian names would be similar. I believe you could also get them from CPAN, but I haven't tested that. If you haven't installed the package, perl loads a dummy module that has almost no features. for this reason history was not part of it.

The underline is part of what readline calls ornaments. if you want to turn them off completely, add $term->ornaments(0); somewhere apropriate.

my rewrite of your script is as follows

#!/usr/bin/perl
use strict;
use warnings;

use Term::ReadLine; # make sure you have the gnu or perl implementation of readline isntalled
# eg: Term::ReadLine::Gnu or Term::ReadLine::Perl
my $term = Term::ReadLine->new('My shell');
my $prompt = "-> ";
$term->ornaments(0);  # disable ornaments.

while ( defined ($_ = $term->readline($prompt)) ) {
   print $_, "\n";
   $term->addhistory($_);
}

Upvotes: 7

Related Questions