Scripting

Perl Script: Basic Template

#! perl
#===============================================================================
# Objective:
# ----------
#
# This is a sample Perl script template.
#
#===============================================================================
# Include Modules
#===============================================================================
use strict;
use warnings;
use Pod::Usage;
use Getopt::Long qw(:config no_ignore_case bundling);
#===============================================================================
# Global Variables Declaration
#===============================================================================
use vars qw($DEBUG);
#===============================================================================
# Prototypes Section
#===============================================================================
sub DoAction;
sub InitGlobals;
sub ProcessArgs;
#===============================================================================
# main()
#===============================================================================
{
InitGlobals();
ProcessArgs();
DoAction();
}
#===============================================================================
# sub InitGlobals
#===============================================================================
sub InitGlobals {
}
#===============================================================================
# sub ProcessArgs
#===============================================================================
sub ProcessArgs {
Getopt::Long::Configure("bundling", "no_ignore_case");
if (!GetOptions('D'   => \$DEBUG,
'h|?' => sub { &pod2usage(-verbose => 2)}) || @ARGV ) {
pod2usage(2);
}
}
#===============================================================================
# sub DoAction
#===============================================================================
sub DoAction {
}
#===============================================================================
# documentation
#===============================================================================
__END__
=head1 NAME
B<.pl> - .
=head1 SYNOPSIS
.pl [- <>][-h] [-D]
=head1 OPTIONS
=over 4
=item B<-D>
Run in debug mode.
=item B<-> <>
=item B<-h>
Print this help message.
=back

Advertisements