You can also check into Getopt::Std or Getopt::Long, both of these modules give you more control over the command line. here is an example usage:
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
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|