This will work for the most part, but I would really recommend against it.
Check out the docs for Getopt::Std. It is much simpler than Getopt::Long,
and will really end up simplifying your scripts, although it might not seem
like it at first look.
Here's an example of a script that uses Getopt::Std to put the switches into
a hash to use later. The options with a colon after them in the getopts()
line take a parameter, and the other ones are on/off switches. An example
command line would be:
"myscript.pl -s SERVERNAME -o OUTFILE -v"
######################
use strict;
use warnings;
use Getopt::Std;
my %opt = ();
getopts('ho:s:v',\%opt);
my $outfile = $opt{o};
if($opt{h}){
Help();
}elsif($opt{v}){
Ver();
}
######################
-----Original Message-----
From: Miller, Joseph S [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 26, 2003 11:48 AM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: How to use command-line switches...
Richard here is an example of code that gets the switch variables from the
command line and checks it before continuing with the script. The shift
function is operating on the @_ array and the @_ array contains the
parameters passed to that subroutine from the command line(reference
perlvar).
my $switch = shift;
if($switch eq "" or $switch =~ /-u/i) {
print "$usagestring";
exit 1;
} elsif ($switch =~ /-p/i) {
$portnum = shift;
} elsif ($switch =~ /-d/i) {
$dbalias = shift;
} else {
print "Invalid argument passed. Try again.\n$usagestring";
exit 1;
}
Hope it helps.
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 26, 2003 1:04 PM
To: [EMAIL PROTECTED]
Subject: How to use command-line switches...
I have a case where I need to use a command-line switch such as -X or /x
Could anyone help me with information as to how I read this into a perl
script and test it - along the lines of "if "/x" then..." ??
I've searched but can't seem to find any concrete example that a newbie
like me can use as a sample.
Thank you!!
Portions of this message may be confidential under an exemption to Ohio's
public records law or under a legal privilege. If you have received this
message in error or due to an unauthorized transmission or interception,
please delete all copies from your system without disclosing, copying, or
transmitting this message.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
