Help for this page

Select Code to Download


  1. or download this
    > PERLDB_OPTS="TTY=`tty`  ReadLine=0" xterm -e perl -d ./calc_TRL.pl

...
  DB<2> c 
main::(./calc_TRL.pl:9):      $term->addhistory($_) if /\S/;
  DB<3>
  2. or download this
    Enter code: 1+2
3
Enter code: 4+4
8
  3. or download this
    > cat ./calc_TRL.pl
use Term::ReadLine;
...
  print $OUT $res, "\n" unless $@;
  $term->addhistory($_) if /\S/;
}