0x001e0000 ˆ¾Æ ƒh¹¿ÃN 0ˆl—Ðz¾”Êe¶…6 ¸ÛWyLZ7ÿÇ ƒyל_‹uÐb &=LV[(ÁÅ"Rpackage Getopt::Std; require 5.000; require Exporter; =head1 NAME Getopt::Std - Process single-character switches with switch clustering =head1 SYNOPSIS use Getopt::Std; getopts('oif:'); # -o & -i are boolean flags, -f takes an argument # Sets $opt_* as a side effect. getopts('oif:', \%opts); # options as above. Values in %opts getopt('oDI'); # -o, -D & -I take arg. # Sets $opt_* as a side effect. getopt('oDI', \%opts); # -o, -D & -I take arg. Values in %opts =head1 DESCRIPTION The C function processes single-character switches with switch clustering. Pass one argument which is a string containing all switches to be recognized. For each switch found, if an argument is expected and provided, C sets C<$opt_x> (where C is the switch name) to the value of the argument. If an argument is expected but none is provided, C<$opt_x> is set to an undefined value. If a switch does not take an argument, C<$opt_x> is set to C<1>. Switches which take an argument don't care whether there is a space between the switch and the argument. If unspecified switches are found on the command-line, the user will be warned that an unknown option was given. The C function returns true unless an invalid option was found. The C function is similar, but its argument is a string containing all switches that take an argument. If no argument is provided for a switch, say, C, the corresponding C<$opt_y> will be set to an undefined value. Unspecified switches are silently accepted. Use of C is not recommended. Note that, if your code is running under the recommended C pragma, you will need to declare these package variables with C: our($opt_x, $opt_y); For those of you who don't like additional global variables being created, C and C will also accept a hash reference as an optional second argument. Hash keys will be C (where C is the switch name) with key values the value of the argument or C<1> if no argument is specified. To allow programs to process arguments that look like switches, but aren't, both functions will stop processing switches when they see the argument C<-->. The C<--> will be removed from @ARGV. =head1 C<--help> and C<--version> If C<-> is not a recognized switch letter, getopts() supports arguments C<--help> and C<--version>. If C and/or C are defined, they are called; the arguments are the output file handle, the name of option-processing package, its version, and the switches string. If the subroutines are not defined, an attempt is made to generate intelligent messages; for best results, define $main::VERSION. If embedded documentation (in pod format, see L) is detected in the script, C<--help> will also show how to access the documentation. Note that due to excessive paranoia, if $Getopt::Std::STANDARD_HELP_VERSION isn't true (the default is false), then the messages are printed on STDERR, and the processing continues after the messages are printed. This being the opposite of the standard-conforming behaviour, it is strongly recommended to set $Getopt::Std::STANDARD_HELP_VERSION to true. One can change the output file handle of the messages by setting $Getopt::Std::OUTPUT_HELP_VERSION. One can print the messages of C<--help> (without the C line) and C<--version> by calling functions help_mess() and version_mess() with the switches string as an argument. =cut @ISA = qw(Exporter); @EXPORT = qw(getopt getopts); $VERSION = '1.12'; # uncomment the next line to disable 1.03-backward compatibility paranoia # $STANDARD_HELP_VERSION = 1; # Process 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 $opt_x (where x is the switch name) to the value of the # arg