Help for this page

Select Code to Download


  1. or download this
    my @opts = qw( a b ... z );
GetOptions(
...
for my $opt (@opts) {
   die("...\n") if !exists($opts{$opt});
}
  2. or download this
    my %opt_defs = (
    ( map { $_ => "$_=s" } qw( a b ... ) ),
...
for my $opt (keys(%opt_defs)) {
   die("...\n") if !exists($opts{$opt});
}