# Time-stamp: "2003-05-10 20:52:07 AHDT"
Getopt::Janus -- get program options via command-line or via a GUI
This module is a simple framework for writing programs that can get
their options either on the command line, or via a GUI.
This module requires Tk for running in GUI mode; but without
it, you can still use the command-line mode.
On an MSWindows machine, you can install Tk by just entering this at a
DOS prompt: ppm install Tk
See perldoc perlmodinstall for the help on installing modules.
Here's a complete sample Janus-using program with just one option:
use strict;
use Getopt::Janus;
choose my $ice_cream, '-i', \"What kind of ice cream",
'from' => [ 'Lemon sorbet', 'Vanilla ice cream', 'Mango zabaglione' ];
$ice_cream = 'Mango zabaglione';
license_gnu;
run \&main, \"Ice cream chooser";
sub main {
print "Ice cream is $ice_cream.\n";
return;
}
It can be run from a command line as:
icecream -i "Lemon sorbet"
To get a GUI for choosing the value of -i (and any other values), you
just run the program without any options:
icecream
See perldoc Getopt::Janus for more info.