The beautiful thing about Getopt::Long is that you can write custom argument handlers. I like them a lot. The below is somewhat slapped together, but should do approximately what you want.
#!/bin/perl use strict; use Getopt::Long; my @words; my $wordsub = sub { while (@ARGV){ if ( $ARGV[0] !~ /^-/ ){ push @words, shift @ARGV } else { last } } }; GetOptions('words' => $wordsub);
@words should contain a list of words. You should be able to hack together the same for your release variable.
In reply to Passing multiple arguments to a flag
by Ferret
in thread Passing Options
by DS
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |