Re: -x accepts up to 3 additional arguments

Yeah, the Getopt::Long convention for switches with multiple arguments would be to specify the same switch multiple times on the call, like:

script.pl -x opt1 -x opt2 -x opt3
[download]

Since it seems that's not an option, (apologies for the pun) you can still use Getopt::Long, but I think you'll need to do something a little less nice. Maybe like:

my @x;
my @y;
my $z;
GetOptions(
  #three options required
  'x=s' => sub { shift(); push(@x, shift, shift(@ARGV), shift(@ARGV));
+ },
  #two options required
  'y=s' => sub { shift(); push(@y, shift, shift(@ARGV)); }, 
  'z=s' => \$z) or die ("Invalid arguments");
[download]

This reaching into @ARGV has the obvious side effect of potentially breaking further option processing if the number of options isn't exactly what you expect. You could easily add you own logic to the processing functions though. (The initial shift discards the first parameter, which is the option itself (-x, -y, etc))

Xaositect - Whitepages.com

Comment on Re: -x accepts up to 3 additional arguments Select or Download Code

Replies are listed 'Best First'.

Re^2: -x accepts up to 3 additional arguments
by Codon (Friar) on Jun 23, 2005 at 19:22 UTC

I think this is the closest to a "best solution" compared to some the others listed. Define a callback handler for your options such as:

my $flag, @args;
my %more = ( x => 2, y => 1, z => 0 );

GetOptions(
   'x=s' => \&parse_opt,
   'y=s' => \&parse_opt,
   'z=s' => \&parse_opt,
);

sub parse_opt {
   my ($opt, $val) = @_;

   # splice additional args off @ARGV based on how many I expect
   push @args, $val, splice @ARGV, 0, $more{$opt}, ();
}
[download]

Of course, all of this is going to depend on what you want to do with things later and on whether then number of params that -x and -y take varies, etc.

Ivan Heffner
Sr. Software Engineer, DAS Lead
WhitePages.com, Inc.

[reply]
[d/l]


Syntactic Confectionery Delight
	PerlMonks