The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

choose - Lets the user choose between arguments, or lines of STDIN

SYNOPSIS

 FILE=`choose 'Which header file ?' *.h`
 MY_GROUPS=`groups`
 chgrp `choose "Change $FILE to which group ?" $MY_GROUPS` $FILE

 lsusb | choose -f 'Which USB device ?'
 lsusb | choose -f -m 'Which USB devices ?'

 case `choose "Which SQL command ?" DELETE INSERT UPDATE` in
     '') exit ;;
     DELETE) ...;;
     INSERT) ...;;
     UPDATE) ...;;
 esac

DESCRIPTION

This script offers a shell-level interface to the Term::Clui CPAN-module. The first argument is the question; by default, subsequent arguments are offered as choices; with the -f (Filter) option, the lines of STDIN are offered as the choices.

For the user, it uses the Arrow-keys and Return, or q to quit. If a -m multiple-choice is being offered, then SpaceBar highlights choices additional to the one under the final Return.

This program comes packaged with the Term::Clui module, in the examples/ directory.

OPTIONS

-f

Causes choose to work as a filter (like grep), so that the user chooses between lines from the standard input. (The default is that the user chooses between the 2nd and all subsequent arguments.)

-m

This offers multiple-choice; the equivalent of calling Term::Clui::choose in a list context.

-v

Prints version number.

CHANGES

 20090928  1.1  pod tidied up, and -f options documented
 20090927  1.0  first working version

AUTHOR

Peter J Billam http://www.pjb.com.au/comp/contact.html

CREDITS

Based on the CPAN module Term::Clui

SEE ALSO

 http://search.cpan.org/perldoc?Term::Clui
 http://search.cpan.org/~pjb
 http://www.pjb.com.au/
 perl(1)