LPM: getopts *elp

Frank Price fprice at mis.net
Wed Aug 16 15:30:42 CDT 2000

> I don't know Getopt::Std, but I think I can get you what you want.
> You can scrap the comments later, of course.


> # I assume the colon is syntax Getopt::Std uses
> getopts('s:', \%opt);
> my $sleep = 0;

The colon means that the s flag takes a mandatory argument.

> # "exists" prevents giving $opt{s} a value if it is undefined;
> # autovivifying can clobber you here!
> if exists ($opt{s}) {
>     # This puts in a default value when "s" is a key, but its
>     # value is undef.
>     $opt{s} = $default_s unless defined($opt{s});

Works like a charm!  Thanks Ken...

Frank Price | fprice at mis.net | www.sxse.org/fprice/
GPG key: www.sxse.org/fprice/gpg.asc | E Pluribus Unix

More information about the Lexington-pm mailing list