perl_script.template

   1 #!/usr/bin/perl -w
   2 # $Id$
   3 use strict;
   4 require v5.10.0;
   5 our $VERSION = 'v0.1';
   6
   7 BEGIN
   8 {
   9     our $PROGRAM_DIR = $ENV{XR_PERL_SOURCE_DIR};
  10     unless($PROGRAM_DIR) {
  11         $PROGRAM_DIR = $0;
  12         $PROGRAM_DIR =~ s/[^\/\\]+$//;
  13         $PROGRAM_DIR =~ s/\/+$//;
  14         $PROGRAM_DIR = "." unless($PROGRAM_DIR);
  15     }
  16     unshift @INC,
  17         map "$PROGRAM_DIR/$_",qw{modules lib ../modules ..lib};
  18 }
  19
  20 my %OPTS;
  21 my @OPTIONS = qw/help|h|? version|ver edit-me manual|man/;
  22
  23 if(@ARGV)
  24 {
  25     require Getopt::Long;
  26     require MyPlace::Usage;
  27     Getopt::Long::GetOptions(\%OPTS,@OPTIONS);
  28     MyPlace::Usage::Process(\%OPTS,$VERSION);
  29 }
  30 else
  31 {
  32     require MyPlace::Usage;
  33     MyPlace::Usage::PrintHelp();
  34     exit 0;
  35 }
  36
  37
  38 __END__
  39
  40 =pod
  41
  42 =head1  NAME
  43
  44 ___NAME___ - PERL script
  45
  46 =head1  SYNOPSIS
  47
  48 ___NAME___ [options] ...
  49
  50 =head1  OPTIONS
  51
  52 =over 12
  53
  54 =item B<--version>
  55
  56 Print version infomation.
  57
  58 =item B<-h>,B<--help>
  59
  60 Print a brief help message and exits.
  61
  62 =item B<--manual>,B<--man>
  63
  64 View application manual
  65
  66 =item B<--edit-me>
  67
  68 Invoke 'editor' against the source
  69
  70 =back
  71
  72 =head1  DESCRIPTION
  73
  74 ___DESC___
  75
  76 =head1  CHANGELOG
  77
  78     ___DATE___  ___AUTHOR___  <___EMAIL___>
  79
  80         * file created.
  81
  82 =head1  AUTHOR
  83
  84 ___AUTHOR___ <___EMAIL___>
  85
  86 =cut
  87
  88 #       vim:filetype=perl