Help for this page

Select Code to Download


  1. or download this
    use Getopt::Long qw(GetOptions);
Getopt::Long::Configure(qw(posix_default no_ignore_case));
...
  unless exists $OPT{mandatory};

print "OK.\n";
  2. or download this
    $ testcmd.pl
Option --mandatory not specified.
...

$ testcmd.pl --nomandatory
OK.