Help for this page

Select Code to Download


  1. or download this
    use Term::ReadLine;
$term = new Term::ReadLine 'ProgramName';
...
  next if (/not/);
  $term->AddHistory($_);
}
  2. or download this
    Using: Term::ReadLine::Gnu
prompt>a
...
not b
prompt>a
a