HPUtil::Menu man page on HP-UX

Man page or keyword search:  
man Server   10987 pages
apropos Keyword Search (all sections)
Output format
HP-UX logo
[printable version]

HPUtil::Menu(3)	      User Contributed Perl Documentation      HPUtil::Menu(3)

       HPUtil::Menu - Present a menu

	use ActiveState::Menu qw(menu prompt yes);

	my $select = menu([qw(Foo Bar Baz)]);

	menu(intro  => "M E N U",
	     menu   => [["&Foo", \&do_foo],
			["S&ub", {
			    intro      => "S U B  M E N U",
			    menu       => [qw(Apples Oranges Exit)],
			    loop_until => 2,
			["Ba&r", \&do_bar],
			["&h", \&do_help],
			["(Ba&z)", \&do_baz]],
	     prompt => "What (type 'h' for help)?",
	     force  => 1,

	 my $reg = (prompt("What is your favourite colour?", "blue"));

	 if (yes("Do you really want to quit?")) {
	     print "Bye\n";

       This module provide the following functions:

       menu( %opts )
	   This function will present a menu on the terminal.  The return
	   value is the index of menu item selected (or "undef" if no item was

	   The following options are recognised:

	      menu:    something to select from (array ref)
	      intro:   heading text
	      prompt:  prompt text
	      force:   force something to be selected (bool)
	      disabled_selectable: allow disabled items to be selected
	      loop_until: show menu in a loop until a particular item is selected

	   The items of the "menu" array can either be plain text strings or
	   an array reference containing a string and a function reference.

	   If a function is provided, it will be invoked if the item is
	   selected.  The value of $_ is set to the menu text before the func‐
	   tion is called, so the same function can serve multiple entries and
	   change it behaviour based on what it finds in $_.

	   If the menu text contains the letter "&" then the next letter is
	   taken as a selector.	 The menu item can be selected by typing this
	   selector.  The "&" character itself is not rendered.

	   If the menu text is enclosed in parenthesis, then that selection is
	   shown as disabled.  Any action associated with the item is not
	   triggered if it is selected.

	   If the menu text only consist of the letter "&" followed by a
	   selector char, then the given menu item is invisible, but the asso‐
	   ciated action could still be triggered.  This can be used for hid‐
	   den commands or help behaviour as demonstrated in the synopsis

	   If the menu text consist of a line of at least 3 dashes, then it is
	   taken as a separator.  An action is associated with a separator
	   line is always ignored.

	   If only a single argument is given to the menu() function, it is
	   taken to be the same as the "menu" option.

	   The "intro" text is presented as a heading above the menu.  Simple
	   markup like *bold*and _underline_ can be used for visual effect.
	   If not provided, no heading is used.

	   The "prompt" option replace the default "Please select an item?"

	   If the "force" option has a TRUE value then it prevents the menu()
	   function from returning undef (if the user did not select any
	   item).  It also prevents the index of any disabled items from being
	   returned.  The option "disabled_selectable" can be used to counter
	   that behaviour.

	   The loop_until option, if specified, makes the menu run in a loop
	   until one of the indices specified by the option is selected.  The
	   value of the option should be either a single index, or a reference
	   to an array of indices.

       prompt( $question, $default )
	   This function will ask a question on the terminal and return the
	   answer given.  If the program is not running on a terminal then the
	   $default is returned.

	   This function comes from the "Term::Prompt" module.	Refer to the
	   documentation of that module for the complete story.

       yes( $question, $default )
	   Will use the prompt function to ask a question and then return a
	   TRUE value if the answer was "yes".	If no $default is given it
	   defaults to "no".

	   This function also comes from the "Term::Prompt" module.


perl v5.8.8			  2009-05-22		       HPUtil::Menu(3)

List of man pages available for HP-UX

Copyright (c) for man pages and the logo by the respective OS vendor.

For those who want to learn more, the polarhome community provides shell access and support.

[legal] [privacy] [GNU] [policy] [cookies] [netiquette] [sponsors] [FAQ]
Polarhome, production since 1999.
Member of Polarhome portal.
Based on Fawad Halim's script.
Vote for polarhome
Free Shell Accounts :: the biggest list on the net