Re: GetOptions and help

Try just testing the number of incoming parms, which is in @ARGV..

if ( @ARGV == 0 || $help ) {
  usage();
  exit(1);
}
[download]

Comment on Re: GetOptions and help Download Code

Replies are listed 'Best First'.
Re^2: GetOptions and help by Anonymous Monk on Mar 16, 2006 at 13:01 UTC
I had previously tried doing this but it seems that in my case @ARGV is always -1 regardless of the number of arguments. Hence if I do this `$numargs = $#ARGV +1; if ($numargs == 0) { usage(); exit(1) }` [download] The usage always kicks in regardless of any options that may have been used	[reply] [d/l]
Re^3: GetOptions and help by fishbot_v2 (Chaplain) on Mar 16, 2006 at 16:38 UTC
`GetOptions` is destructive: it consumes `@ARGV` as it processes. You would need to test `@ARGV` before calling `GetOptions`. I would suggest this instead, though: Just determine what the required arguments are, and test them. In your case, it seems like the required arguments are an alternation: `unless ( $alt1 or $alt2 or ( $alt3 and $alt4 )) { usage(); exit; }` [download]	[reply] [d/l] [select]


No such thing as a small change
	PerlMonks