in reply to Re: Range in Getopt
in thread Range in Getopt

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."

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom