«

hi folks,

I am reading in arguments just fine using the code below, but I want to

be able to add a variable number of values into an argument into perl -

I want to be able to say
perl -f value1 value2 ..valueN -v value value2 ..valueN

and store the values of -f in a single array, and -v also (and the
number of passed values could vary !)

If anyone has any tips that would be great - Thanks, Jack

if (@ARGV[0] eq undef) {
$value1=@ARGV[0];
}
if (@ARGV[1] eq undef) {
$value2=@ARGV[1];

Jack wrote:
[a multiposted question]

Don't multipost. It's rude.

--
David Filmer (http://DavidFilmer.com)

wrote:

> [a multiposted question]
>
> Don't multipost. It's rude.

Now I think you are being too terse. At least say

Don't multipost. It's rude. See http://....

> David Filmer (http://DavidFilmer.com)

I went there and found a statement "There is nothing on this website,
and there are no plans to ever have any content here" and a link to
another page on the same website. Can I just say "huh?".

On 22 Sep 2006 20:43:51 -0700, Jack <> wrote:
> I am reading in arguments just fine using the code below, but I want to
> be able to add a variable number of values into an argument into perl -
>
> I want to be able to say
> perl -f value1 value2 ..valueN -v value value2 ..valueN
>
> and store the values of -f in a single array, and -v also (and the
> number of passed values could vary !)

I've just discovered the clever Getopt:eclare module, which can do
just that:

#/usr/bin/perl
use strict;
use warnings;
use Getopt:eclare;

my $args = Getopt:eclare->new(<<END);
-f <value>... a list of values
-v <value>... another list of values
END

my @f = @{ $args->{'-f'} };
my @v = @{ $args->{'-v'} };
print "f = @f, v = @v\n";

Dave Weaver wrote:
> On 22 Sep 2006 20:43:51 -0700, Jack <> wrote:
> > I am reading in arguments just fine using the code below, but I want to
> > be able to add a variable number of values into an argument into perl -
> >
> > I want to be able to say
> > perl -f value1 value2 ..valueN -v value value2 ..valueN
> >
> > and store the values of -f in a single array, and -v also (and the
> > number of passed values could vary !)
>
> I've just discovered the clever Getopt:eclare module, which can do
> just that:
>
> #/usr/bin/perl
> use strict;
> use warnings;
> use Getopt:eclare;
>
> my $args = Getopt:eclare->new(<<END);
> -f <value>... a list of values
> -v <value>... another list of values
> END
>
> my @f = @{ $args->{'-f'} };
> my @v = @{ $args->{'-v'} };
> print "f = @f, v = @v\n";

It's unfortunate that this topic was multiposted, because David Filmer
has already pointed out in perl.beginners that the newest version of
Getopt::Long (version 2.35) supports this functionality natively (ie:
without split()-ing) though the module's author lists this
functionality as 'experimental'.

-jp