#! /usr/bin/perl
#---------------------------------------------------------------------
# $Id: flexible 1712 2007-03-22 00:13:26Z cjm $
#
# Demonstrate the flexible method of using Getopt::Mixed
#---------------------------------------------------------------------

# This next line is only so you don't have to install Getopt::Mixed first:
BEGIN {unshift @INC, '../lib'}  # Don't do this in your code

#---------------------------------------------------------------------
use strict;
use Getopt::Mixed 1.006, 'nextOption';

Getopt::Mixed::init("apples=f a>apples apricots=f b:i c d:s file=s f>file",
                    "pears=f help ?>help version V>version");

while (my ($option, $value, $asEntered) = nextOption()) {
    if (defined $value) {
        printf "%-9s %7s = %s\n",$asEntered,$option,$value;
    } else {
        printf "%-9s %7s\n",$asEntered,$option;
    }
}

Getopt::Mixed::cleanup();

print "ARGV = ",join(' ',@ARGV),"\n";