Re: Range in Getopt

You can evaluate options with Getopt::Long using a custom subroutine, like this:


use Getopt::Long;
my $_debug;
GetOptions('d=i' => sub {
        $_debug = $_[1];
        ($_debug > 0 && $_debug <= 4) or die "Invalid Debug Level ($_d
+ebug)"
    } ) and warn $_debug;
[download]

GetOptions catches the die and throws it as a warning and returns false. When using the custom subroutine, you need to handle assigning to the variable for your option yourself.

Comment on Re: Range in Getopt Download Code

Replies are listed 'Best First'.
Re^2: Range in Getopt by roho (Bishop) on Oct 03, 2012 at 13:26 UTC
I like your solution, but when no -d parameter is present, the following warning is displayed: Warning: something's wrong at C:\tmp\getopt-range.pl line 15. This appears to be a warning from Getopt::Long. I tried adding return 1 if !defined @_; at the top of the sub but the warning persists. "Its not how hard you work, its how much you get done."	[reply]
Re^3: Range in Getopt by james2vegas (Chaplain) on Oct 03, 2012 at 18:34 UTC
That is because while the d option's value is required, the d option itself is not, check the definedness of $_debug afterwards: `use Getopt::Long; my $_debug; GetOptions('d=i' => sub { $_debug = $_[1]; ($_debug > 0 && $_debug <= 4) or die "Invalid Debug Level ($_d +ebug)" } ) or exit 1; die "Debug Level is required" unless defined $_debug; warn "Debug Level is $_debug\n";` [download] or set a default value before GetOptions: `use Getopt::Long; my $_debug = 0; GetOptions('d=i' => sub { $_debug = $_[1]; ($_debug > 0 && $_debug <= 4) or die "Invalid Debug Level ($_d +ebug)" } ) or exit 1; warn "Debug Level is $_debug\n";` [download]	[reply] [d/l] [select]