Getopt::LL is a Perl module that provides several ways for defining the arguments you want. There is Getopt::LL::Simple for defining arguments on the -use-line-, Getopt::LL::Short for abbreviated rules (that looks like Getopt::Long).
SYNOPSIS
use Getopt:LL qw(getoptions);
my $use_foo = 0;
my $options = getoptions({
'-t' => 'string',
'--verbose|-v' => 'flag',
'--debug|-d' => 'digit',
'--use-foo' => sub {
$use_foo = 1;
},
'-output|-o' => sub {
my ($getopt, $node) = @_;
my $next_arg = $getopt->get_next_arg($node);
if ($next_arg eq '-') {
$out_to_stdout = 1;
}
return $next_arg;
};
});
Product's homepage
Requirements:
· Perl