Getopt::Tabular 0.3

Getopt::Tabular is a Perl module for table-driven argument parsing for Perl 5.

SYNOPSIS

use Getopt::Tabular;
(or)
use Getopt::Tabular qw/GetOptions
SetHelp SetHelpOption
SetError GetError/;

...

≥topt::Tabular::SetHelp (long_help, usage_string);

@opt_table = (
[section_description, "section"],
[option, type, num_values, option_data, help_string],
...
);
≥tOptions (@opt_table, @ARGV [, @newARGV]) || exit 1;

Getopt::Tabular is a Perl 5 module for table-driven argument parsing, vaguely inspired by John Ousterhouts Tk_ParseArgv. All you really need to do to use the package is set up a table describing all your command-line options, and call ≥tOptions with three arguments: a reference to your option table, a reference to @ARGV (or something like it), and an optional third array reference (say, to @newARGV). ≥tOptions will process all arguments in @ARGV, and copy any leftover arguments (i.e. those that are not options or arguments to some option) to the @newARGV array. (If the @newARGV argument is not supplied, GetOptions will replace @ARGV with the stripped-down argument list.) If there are any invalid options, GetOptions will print an error message and return 0.