Parsing function args in Getopt::Long style

Is there a module to parse named function parameters in Getopt::Long style?

What I have in mind is something like:

# Call function
&foo('-p1' -$v1, '-p2' =$v2);

#Define function
sub foo {
my $options = PARSER(@_);

my $v1 = $options->{'p1'};

# ....
}

On Fri, 11 Jan 2008 13:11:23 -0800, Yuri Shtil wrote:

Quote:

Is there a module to parse named function parameters in Getopt::Long
style?
>
What I have in mind is something like:
>
# Call function
&foo('-p1' -$v1, '-p2' =$v2);
>
#Define function
sub foo {
my $options = PARSER(@_);
>
my $v1 = $options->{'p1'};
>
# ....
}

Maybe something like this?

sub foo {
local @ARGV = @_;
$r = GetOptions(...);
...
}

M4

"Yuri Shtil" <shtil@comcast.netwrote:

Quote:

Is there a module to parse named function parameters in Getopt::Long
style?
>
What I have in mind is something like:
>
# Call function
&foo('-p1' -$v1, '-p2' =$v2);

^ don't use & unless you know what it does.

foo( '-p1' =$v1, '-p2' =$b2 );

Quote:

#Define function
sub foo {
my $options = PARSER(@_);

my %options = @_;

Quote:

my $v1 = $options->{'p1'};

my $v1 = $options{ '-p1' );

--
John

http://johnbokma.com/perl/

Parsing function args in Getopt::Long style

re: Parsing function args in Getopt::Long style

re: Parsing function args in Getopt::Long style

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about