note leriksen This may be more useful as a parser for simple command line arguments if you call it with <code>{@ARGV}</code><p>But there are [cpan://Getopt::Long|lots] of better ways to do that - this a very lightweight way.<p> I've recently (last 3-4 months or so) been using named parameter lists for almost all my library code and also using [cpan://Params::Validate], so my idomatic (OO) code looks like<br> <code> package Chopper::Reed; use Params::Validate qw/validate_with/; sub psychotic { my $self = shift; my %params = validate_with(params => \@_, spec => { punch => 1, charm => {default => 'JOURNALIST', regex = qr/^[CON]/}, mutilate => 0, }, ); $self->mutilate($params{$mutilate}) if $params{$mutilate}; ... } ... 1; </code> <i>Note: Chopper Reed is self confessed hitman and was sectioned as a self-mutilator whilst serving time in prison for murder. He has been released, is a successful media personality and author, and recently bought a brewery. He recently left his wife and farm in Tasmania because he "...didn't like the septic loo backing up."</i> <div class="pmsig"> <div class="pmsig-189168"> <p>+++++++++++++++++ <br>#!/usr/bin/perl <br>use warnings;use strict;use brain; </div></div> 332886 332886