lib/CXGN/Garbage/cmdline_args.pm

   1 package CXGN::Garbage::cmdline_args;
   2 use strict;
   3
   4 sub get_options {
   5     my ($validopt_ref, $argv_ref) = @_;
   6     my ($option, $error);
   7
   8     if (! @{$argv_ref}) {
   9         print "No command line options\n";
  10         return 0;
  11     }
  12
  13     while(@{$argv_ref}>0) {
  14         $option = shift @{$argv_ref};
  15
  16         if (! defined($validopt_ref->{$option})) {
  17             print STDERR "Unknown option $option\n";
  18             $error = 1;
  19             next;
  20         }
  21
  22         if ($validopt_ref->{$option}->[1]) {
  23             # Option which requires argument, shift in the next argument from
  24             # the command line
  25             ${$validopt_ref->{$option}->[0]} = shift @{$argv_ref};
  26         } else {
  27             # Boolean flag: invert default value
  28             if (${$validopt_ref->{$option}->[0]}) {
  29                  ${$validopt_ref->{$option}->[0]} = 0;
  30             } else {
  31                  ${$validopt_ref->{$option}->[0]} = 1;
  32             }
  33         }
  34     }
  35
  36     return $error;
  37 }
  38 return 1;