perlfunc
root
<P>
getopt - Process single-character switches with switch clustering
<P>
getopts - Process single-character switches with switch clustering
<P>
<HR>
<P>
<PRE> use Getopt::Std;
</PRE>
<P>
<PRE> getopt('oDI'); # -o, -D & -I take arg. Sets opt_* as a side effect.
getopt('oDI', \%opts); # -o, -D & -I take arg. Values in %opts
getopts('oif:'); # -o & -i are boolean flags
<P>
The
<CODE>getopt()</CODE> functions processes
single-character switches with switch clustering. Pass one argument which
is a string containing all switches that take an argument. For each switch
found, sets <CODE>$opt_x</CODE> (where x is the switch name) to the value
of the argument, or 1 if no argument. Switches which take an argument don't
care whether there is a space between the switch and the argument.
<P>
Note that, if your code is running under the recommended <CODE>use strict
'vars'</CODE> pragma, it may be helpful to declare these package variables via <CODE>use vars</CODE> perhaps something like this:
<P>
<PRE> use vars qw/ $opt_foo $opt_bar /;
</PRE>
<P>
For those of you who don't like additional variables being created,
<CODE>getopt()</CODE> and
<CODE>getopts()</CODE> will also accept a hash reference as an optional second argument. Hash keys will be x (where x is the switch name) with key values the value of the argument or 1 if no argument is specified.
<HR>