Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl Getopt::Long question - stopping multiple args
Top Forums Shell Programming and Scripting Perl Getopt::Long question - stopping multiple args Post 302395898 by rethink on Wednesday 17th of February 2010 08:49:10 AM
Old 02-17-2010
Perl Getopt::Long question - stopping multiple args
Hi there, I have an example basic script (below) and ive been trying to figure out how to stop multiple arguments to my options occuring. for example using the example script below I can issue two arguments for, say the --surname option and it will not barf at me (although thats what i want it to do). It just ignores the second argument to the --surname option completely and happily continues.

Code:
#./name.pl --firstname John --surname Smith Jones
firstname is set to  - John
surname is set to  - Smith

How would i get it to barf at me for providing too many options ?

Any help would be great



The Script

Code:
#!/bin/perl

use strict;
use Getopt::Long;

my $firstname = "";
my $surname = "";
my $help = "";

GetOptions (
                "firstname=s"           => \$firstname,
                "surname=s"             => \$surname,
                "help!"                 => \$help,

                ) or die "Incorrect usage.\n";


if( $help )
{
        print "Common on, it's really not that hard.\n";
} else {



        if (!$firstname) { print "You have failed to enter a --firstname value\n"; exit 11 }
        if (!$surname) { print "You have failed to enter a --surname value\n"; exit 12 }


        print "firstname is set to  - $firstname\n";
        print "surname is set to  - $surname\n";

}

 

10 More Discussions You Might Find Interesting

1. Programming

question about getopt()

I'm using getopt() to get command line options.One the optons accepts and argument.The argument is and offset.I was wondering how can I scecify that it's argument is of the type off_t.I've something like this "offset=(off_t)optarg" and it don't work. (1 Reply)
Discussion started by: angelfly
1 Replies

2. AIX

Stopping multiple process on AIX

I'm trying to update a shared library (*.so) in our AIX machine. However, when I tried to delete the old *.so file, I get this error -> Cannot open or remove a file containing a running program. Based on the information I gather from the net, shared libraries are not unloaded (the file remains... (3 Replies)
Discussion started by: soulfactory2002
3 Replies

3. Shell Programming and Scripting

getopt in perl

Hi, I have a perl script with two functions say func a and func b. sub a { ----------- --------- } sub b { --------- --------- } I want to use this function on command line as we can do in shell script using getopt. My motto here is to run the script like this ... (7 Replies)
Discussion started by: namishtiwari
7 Replies

4. Shell Programming and Scripting

using getopt for both short and long options

Hi , I am using getopt for both short and long options as below SHORTOPTS="a:c" LONGOPTS="alpha:,charlie" OPTS=$(getopt -o $SHORTOPTS --longoptions $LONGOPTS -n "$progname" -- "$@") eval set -- "$OPTS" while ; do case $1 in -a|--alpha) echo "-a or --alpha... (0 Replies)
Discussion started by: padmisri
0 Replies

5. Shell Programming and Scripting

using getopt for both short and long options

Hi , I am using getopt for both short and long options as below SHORTOPTS="a:c" LONGOPTS="alpha:,charlie" OPTS=$(getopt -o $SHORTOPTS --longoptions $LONGOPTS -n "$progname" -- "$@") eval set -- "$OPTS" while ; do case $1 in -a|--alpha) echo "-a or --alpha... (1 Reply)
Discussion started by: padmisri
1 Replies

6. Shell Programming and Scripting

using getopt for both short and long options

Hi , I am using getopt for both short and long options as below SHORTOPTS="a:c" LONGOPTS="alpha:,charlie" OPTS=$(getopt -o $SHORTOPTS --longoptions $LONGOPTS -n "$progname" -- "$@") eval set -- "$OPTS" while ; do case $1 in -a|--alpha) echo "-a or --alpha... (1 Reply)
Discussion started by: padmisri
1 Replies

7. Programming

Perl Getopt::Long

Hi All I am using Getopt::Long in perl and i am trying to have it so if i dont supply a switch after the progname is will do a defult option i have the following GetOptions($OPT, 'debug|d', 'mail|m', ) or info(); i want it run the debug if it is not given a switch ... (1 Reply)
Discussion started by: ab52
1 Replies

8. Shell Programming and Scripting

Perl :: Getopt::Long in the program

While going through some of the perl script... I had found the below line.. use Getopt::Long; my $GetOptionsReturnCode = GetOptions ( '<>' => sub { push(@unknownArg, @_); }, 'h|help' => sub { &helpMessage(); exit 0; }, ); Could anyone please explain the above one ... (1 Reply)
Discussion started by: scriptscript
1 Replies

9. Shell Programming and Scripting

Store args passed in array but not the first 2 args

Store args passed in array but not the first 2 args. # bash declare -a arr=("$@") s=$(IFS=, eval 'echo "${arr}"') echo "$s" output: sh array.sh 1 2 3 4 5 6 1,2,3,4,5,6 Desired output: sh array.sh 1 2 3 4 5 6 3,4,5,6 (2 Replies)
Discussion started by: iaav
2 Replies

10. UNIX for Beginners Questions & Answers

Question about getopts optional argument [args...]

There are many places where I can see the syntax description for optargs, which, usually boils down to this: getopts OPTSTRING VARNAME where: OPTSTRING tells getopts which options to expect and where to expect arguments VARNAME tells getopts which shell-variable to use for option reporting... (2 Replies)
Discussion started by: sharkura
2 Replies

LEARN ABOUT MOJAVE

moosex::getopt::basic5.18

MooseX::Getopt::Basic(3pm)				User Contributed Perl Documentation				MooseX::Getopt::Basic(3pm)

NAME

       MooseX::Getopt::Basic - MooseX::Getopt::Basic - role to implement the Getopt::Long functionality

VERSION

       version 0.59

SYNOPSIS

	 ## In your class
	 package My::App;
	 use Moose;

	 with 'MooseX::Getopt::Basic';

	 has 'out' => (is => 'rw', isa => 'Str', required => 1);
	 has 'in'  => (is => 'rw', isa => 'Str', required => 1);

	 # ... rest of the class here

	 ## in your script
	 #!/usr/bin/perl

	 use My::App;

	 my $app = My::App->new_with_options();
	 # ... rest of the script here

	 ## on the command line
	 % perl my_app_script.pl --in file.input --out file.dump

DESCRIPTION

       This is like MooseX::Getopt and can be used instead except that it doesn't make use of Getopt::Long::Descriptive (or "GLD" for short).

METHODS

   new_with_options
       See "new_with_options" in MooseX::Getopt.

   process_argv
       See "process_argv" in MooseX::Getopt.

AUTHOR

       Stevan Little <stevan@iinteractive.com>

COPYRIGHT AND LICENSE

       This software is copyright (c) 2007 by Infinity Interactive, Inc.

       This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

perl v5.18.2							    2013-11-30						MooseX::Getopt::Basic(3pm)
All times are GMT -4. The time now is 12:48 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy