NAME Term::Screen::ReadLine - Term::Screen extended with ReadLine 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),"\n"; $scr->two_esc; $a=$scr->getch(); print $a," ",length $a," ",ord($a),"\n"; $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 => "[ieIE]+", CONVERT => "up"); print "\n"; print $scr->lastkey(),"\n"; $r=$scr->getch(); print $r,ord($r),"\n"; $r=ord($r); print $r,"\n"; if ($r eq 13) { print "aja!\n"; } exit; DESCRIPTION This module 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. USAGE readline( ROW => 0, COL => 0, LEN => 40, DISPLAYLEN => undef, LINE => "", ONLYVALID => undef, CONVERT => undef, ) ROW,COL 'at(ROW,COL) readline()...'. LEN The maximum length of the line to read. DISPLAYLEN The maximum length of the displayed field. The display will scroll if the displaylen is exceeded. EXITS Explained below. LINE A default value for LINE to use. ONLYVALID A regex to validate the input. CONVERT "up" or "lo" for uppercase or lowercase. Nothing if not used. Note: conversion will take place *after* validation. returns the inputted line. The readline() function does always return on the following keys: Enter, Arrow up, Arrow down, Esc, Tab and Ctrl-Enter. This can be extended using the EXITS argument, is a hash of keys (see Term::Screen) and a description to return for that key. example: EXITS => { "k1" => "help", "k3" => "cancel" }, last_key() returns the last key pressed, that made the readline function return. one_esc() Makes it possible to press only one time Esc to make readline return. This is the default for Term::Screen::ReadLine. two_esc() Revert back to the standard Term::Screen behaviour for the Esc key. HEADER =>
, CANCEL => , NEXT => , PREVIOUS => , FINISH => , HELP => , HELPTEXT => NOFINISH => <1/0 - Inidicates that this wizard is/is not (1/0) part of an ongoing 'wizard sequence'> PROMPTS => ) This function add's a screen to the list of screens that the wizards goes through sequentially. If NOFINISH==1, the finish 'button' is not used. Use this, if the last screen of this wizard is not actually the last screen of a sequence of wizards. For instance, if you need to go one way or the other after the first screen, you provide a wizard with one screen and no FINISH button. After that you call the next sequence of screens. PROMPTS => [ { KEY => "ANINT", PROMPT => "INT", LEN => 10, CONVERT => "up", ONLYVALID => "[0-9]*" }, { KEY => "ADOUBLE", PROMPT => "DOUBLE", LEN => 16, CONVERT => "up", ONLYVALID => "[0-9]+([.,][0-9]*)?" }, ] Note the entries in PROMPTS : KEY is the hash key with what you can access the field. PROMPT is the prompt to use for the field. LEN is the maximum length of the field. CONVERT 'up' or 'lo' for uppercase or lowercase. If not used it won't convert. ONLYVALID is a regex to use for validation. Note: validation is done *before* conversion! If not used, no validation is done. VALUE a default value to use. This value will change if the wizard is used. del_screen() This function deletes a screen with given name from the list of screens. get_screen() This function get's you a handle to a defined screen with given name. get_keys() This function gives you all the keys in a hash of a hash. Actually a hash of screens and each screen a hash of keys. See synopsis for usage. wizard() This function starts the wizard. AUTHOR Hans Dijkema