use Getopt::Long;

Configure( \%Config );
if( $Config{help} ){ Syntax(); exit();}

....Code Goes Here.....

sub Configure {

    my( $Config ) = @_;
    my $Result = 0;
    Getopt::Long::Configure( "prefix_pattern=(-|\/)" );
    $Result = GetOptions( $Config, 
                qw(
                       del|d=i
                    length|l=i
                    path|p=s
                    first|f=s
                    reports|r=i
                    help|?|h
                ) );
                
    if (! scalar $Config->{line}) { $Config->{line}=132;}
    if (! scalar $Config->{reports}) { $Config->{reports}=1;}
    if (! exists $Config->{path}) { Syntax(); exit; }
    if (! exists $Config->{first}) { Syntax(); exit; }
    
    if (exists $Config->{del}) { Delete(); }
    
    $stream = $Config->{line};
    $rptpag    = $Config->{reports};
    $dir = $Config->{path};
    $firstln = $Config->{first};
}

sub Syntax
{

    print <<EOT;

ansi.pl
-------
Used for Adding/Removing ANSI printer control characters.

Syntax:
    ansi.pl [-l length] [-p path] [-f first] [-r reports] [-d del]
    
        -l..........Defines length of each line in the files. [default
+=132]
        -p..........Specifies the directory path to process. [must be 
+defined]
                    (Directory must end with a \\)
        -f..........Defines the first line of a report. [must be defin
+ed]
        -r..........Set the number of reports per page. [default=1]
        -d..........Deletes defined number of characters from beginnin
+g of
                    each line. [optional]
        -h..........This help screen.            

        *(looks for all *.dat in specified directory, saves original t
+o *.bak)  


EOT

}
[download]