| Name : perl-Term-RawInput
| |
| Version : 1.25
| Vendor : obs://build_opensuse_org/devel:languages:perl
|
| Release : lp154.1.1
| Date : 2023-05-29 07:38:41
|
| Group : Unspecified
| Source RPM : perl-Term-RawInput-1.25-lp154.1.1.src.rpm
|
| Size : 0.05 MB
| |
| Packager : https://www_suse_com/
| |
| Summary : Simple drop-in substitute for < STDIN> that also captures non-standard ke[cut]
|
Description :
I needed a ridiculously simple function that behaved exactly like
$input=< STDIN> in scripts, that captured user input and and populated a
variable with a resulting string. BUT - I also wanted to use other KEYS
like DELETE and the RIGHT ARROW key and have them captured and returned. So
I really wanted this:
my $prompt=\'PROMPT : \'; ($input,$key)=rawInput($prompt,0);
... where I could test the variable \'$key\' for the key that was used to
terminate the input. That way I could use the arrow keys to scroll a menu
for instance.
I looked through the CPAN, and could not find something this simple and
straight-forward. So I wrote it. Enjoy.
The second argument to rawInput() is optional, and when set to 1 or any
positive value, returns all keys instantly, instead of waiting for ENTER.
This has turned out to be extremely useful for creating command environment
\"forms\" without the need for curses. See Term::Menus and/or Net::FullAuto
for more details.
NOTE: When the second argument is 0 or not used, BACKSPACE and TAB are not
captured - but used to backspace and tab. DELETE is captured. Also, no
Control combinations are captured - just the non-standard keys INSERT,
DELETE, ENTER, ESC, HOME, PAGEDOWN, PAGEUP, END, the ARROW KEYS, and F1-F12
(but *NOT* F1-F12 with Windows Version of Perl - especially Strawberry Perl
[ This is a limitation of the Term::ReadKey Module. ]; but, works with
Cygwin Perl!). All captured keys listed will terminate user input and
return the results - just like you would expect using ENTER with < STDIN>.
|
RPM found in directory: /packages/linux-pbone/ftp5.gwdg.de/pub/opensuse/repositories/devel:/languages:/perl:/CPAN-T/15.4/noarch |
