[Melbourne-pm] Command line argument processing with validation

[Wesley Moore]

Hmm seems I got lost in there somewhere... The question should read:

I'm wondering if anyone knows of a module like Params::Validate that
would remove the second step by allowing required options be specified
as part of the option specification.

Wes

On 6/28/07, Wesley Moore <wjmoore at gmail.com> wrote:
> Hi all,
> In the system I work on we frequently create scripts to process a file
> from one format into another. All these scripts typically start off
> with something like:
>
> GetOptions(
>     'd|data_date=s' => \( my $DATA_DATE  = undef ),
>     'y|dict_root=s' => \( my $DICT_ROOT  = undef ),
>     'i|input=s'       => \( my $INPUTDIR  = undef ),
>     'o|output=s'    => \( my $OUTPUT     = undef ),
>     'v|verbose'     => \( my $VERBOSE    = undef ),
>     'h|help' => sub { pod2usage(1) },
>     'm|man'  => sub { pod2usage( -verbose => 2 ) },
> ) or pod2usage(2);
>
> if ( !defined $INPUT )     { pod2usage('No input dir specified') }
> if ( !defined $DATA_DATE )  { pod2usage('No -d <datadate> option specified') }
> if ( !defined $DICT_ROOT ) { pod2usage('No -y <dict_root> option specified') }
> if ( !defined $OUTPUT )    { pod2usage('No -o <output> option specified') }
>
> I'm wondering if anyone knows of a module like Params::Validate that
> would all the second step - validating required options were passed to
> be part of the option specification.
>
> Thanks,
> Wes
>