process_options

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     process_options
   3 ###APPAUTHOR:   root
   4 ###APPDATE:     Fri Sep 21 12:11:45 2007
   5 ###APPVER:      0.1
   6 ###APPDESC:     format perl script help message
   7 ###APPUSAGE:    (Filename) [Args...]
   8 ###APPEXAMPLE:  process_options "/share/bin/process_options"
   9 use strict;
  10 use lib $ENV{XR_PERL_MODULE_DIR};
  11 use MyPlace::Script::Usage qw(/help_required/);
  12
  13 exit 0 if(help_required(@ARGV));
  14 exit 1;
  15
  16
  17
  18
  19
  20
  21
  22