Help with options

[tbrowner@digidyne.com]

Hi,

I have a script that command options are taken and would like to know
how print out the options when the options are missing from the command
line. Or how to do a -h to print out the options.

Thanks,
Thomas Browner

[Dan Muey]

> Hi,

>
> I have a script that command options are taken and would like
> to know how print out the options when the options are
> missing from the command line. Or how to do a -h to print out
> the options.
>

There are module sto help you process switches and what not.
For really simple stuff I do:

if($ARGV[0] eq '-h') { print "Here is how to use this script...."; }
elsif(!defined $ARGV[1]) { print "You must specify the Foo for Monkey, try -h for help..."; }

Something like that anyway.

HTH

DMuey

> Thanks,
> Thomas Browner
>
>
>
>
> --
> To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
> For additional commands, e-mail: [email]beginners-help@perl.org[/email]

<http://learn.perl.org/> <http://learn.perl.org/first-response>

[Paul Kraus]

Getopt::long

[url]http://search.cpan.org/~jv/Getopt-Long-2.34/lib/Getopt/Long.pm[/url]


Paul Kraus
-----------------------
PEL Supply Company
Network Administrator

> -----Original Message-----
> From: Thomas Browner [mailto:thomas.browner@digidyne.com] On Behalf Of
> [email]tbrowner@digidyne.com[/email]
> Sent: Tuesday, January 27, 2004 5:22 PM
> To: [email]beginners@perl.org[/email]
> Subject: Help with options
>
> Hi,
>
> I have a script that command options are taken and would like to know
> how print out the options when the options are missing from the command
> line. Or how to do a -h to print out the options.
>
> Thanks,
> Thomas Browner
>
>
>
>
> --
> To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
> For additional commands, e-mail: [email]beginners-help@perl.org[/email]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>

[Tim]

I realize there's no 'help' in this one, but maybe this will get you on
your way...(it's a bit of a kluge; I had to check it twice)

Here's one with GetOpt::Std :
##########################
use Getopt::Std;

my @ARGS;
my %opts;
eval
{
getopts('o:L', \%opts) or die "Usage: $0 -o [ mail || file ]
[-L]\n\t where\t-o mail = mailed output OR -o file = output to
files\n\t\t-L = create log file\n";
die "Usage: $0 -o [ mail || file ] [-L]\n\t where\t-o mail =
mailed output OR -o file = output to files\n\t\t-L = create log file\n"
unless ( (exists $opts{o})&&(($opts{o} eq "mail")||($opts{o} eq
"file")));
};
if ( $@ ) {
#mail & die
....
}
###########################

At 12:21 PM 1/28/04 -0500, you wrote:

>Getopt::long
>
>[url]http://search.cpan.org/~jv/Getopt-Long-2.34/lib/Getopt/Long.pm[/url]
>
>
> Paul Kraus
> -----------------------
> PEL Supply Company
> Network Administrator
>

> > -----Original Message-----
> > From: Thomas Browner [mailto:thomas.browner@digidyne.com] On Behalf Of
> > [email]tbrowner@digidyne.com[/email]
> > Sent: Tuesday, January 27, 2004 5:22 PM
> > To: [email]beginners@perl.org[/email]
> > Subject: Help with options
> >
> > Hi,
> >
> > I have a script that command options are taken and would like to know
> > how print out the options when the options are missing from the command
> > line. Or how to do a -h to print out the options.
> >
> > Thanks,
> > Thomas Browner
> >
> >
> >
> >
> > --
> > To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
> > For additional commands, e-mail: [email]beginners-help@perl.org[/email]
> > <http://learn.perl.org/> <http://learn.perl.org/first-response>

>
>
>
>--
>To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
>For additional commands, e-mail: [email]beginners-help@perl.org[/email]
><http://learn.perl.org/> <http://learn.perl.org/first-response>