Term::Screen::ReadLineTerm::Screen extended with ReadLine | |
Download |
Term::Screen::ReadLine Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Hans Dijkema
- Publisher web site:
- http://search.cpan.org/~oesterhol/
Term::Screen::ReadLine Tags
Term::Screen::ReadLine Description
Term::Screen extended with ReadLine Term::Screen::ReadLine is a Perl module that extends Term::Screen with a readline() function. It also makes it possible to use a *single* Esc to escape instead of the Term::Screen double Esc.SYNOPSIS use lib "./blib/lib"; use Term::Screen::ReadLine; $scr = new Term::Screen::ReadLine; $scr->clrscr(); $a=$scr->getch(); print $a," ",length $a," ",ord($a)," "; $scr->two_esc; $a=$scr->getch(); print $a," ",length $a," ",ord($a)," "; $scr->one_esc; $scr->clrscr(); $scr->at(4,4)->puts("input? "); $line=$scr->readline(ROW => 4, COL => 12); $line=$scr->readline(ROW => 5, COL => 12, DISPLAYLEN => 20); $scr->at(10,4)->puts($line); $scr->two_esc; $line=$scr->readline(ROW => 6, COL => 12, DISPLAYLEN => 20, ONLYVALID => "+", CONVERT => "up"); print " "; print $scr->lastkey()," "; $r=$scr->getch(); print $r,ord($r)," "; $r=ord($r); print $r," "; if ($r eq 13) { print "aja! "; } Requirements: · Perl
Term::Screen::ReadLine Related Software