Tyler's wiki

# Tyler Bletsch
use strict;
 
# Get command line options
while ($ARGV[0] =~ /^-(.)(.*)/) {
	shift;
	my ($opt,$param) = ($1,$2);
 
	if ($opt eq 'a') { next; }
	elsif ($opt eq 'b') { next; }
	else { &usage }
}
 
# Check for existance of remaining arguments
&usage unless (@ARGV);
 
###############################################################################
 
sub usage() {
	(my $progName = $0) =~ s#.*[/\\]##;
	print <<EODOC;
TITLE
 
Purpose
 
Usage:
    $progName [options] [arguments]
 
Options:
    a - Does this
    b - Does that
 
Arguments:
    Things
 
EODOC
	exit;
}