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 302395998 by pludi on Wednesday 17th of February 2010 12:02:25 PM
Old 02-17-2010
Ah, you mean like the example a few paragraphs down in the documentation?
Code:
#!/bin/perl
use strict;
use Getopt::Long;

my $firstname = "";
my @surname   = ();
my $help      = "";

GetOptions(
    "firstname=s"   => \$firstname,
    "surname=s{1,}" => \@surname,
    "help!"         => \$help,

) or die "Incorrect usage.\n";

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

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

}

Code:
$ perl getopt.pl --firstname John --surname Smith Jones
firstname is set to  - John
surname is set to  - Smith Jones

 

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 DEBIAN

gedcom::individual

Gedcom::Individual(3pm) 				User Contributed Perl Documentation				   Gedcom::Individual(3pm)

NAME

       Gedcom::Individual - a module to manipulate Gedcom individuals

       Version 1.16 - 24th April 2009

SYNOPSIS

	 use Gedcom::Individual;

	 my $name = $i->name;
	 my @rel = $i->father;
	 my @rel = $i->mother;
	 my @rel = $i->parents;
	 my @rel = $i->husband;
	 my @rel = $i->wife;
	 my @rel = $i->spouse;
	 my @rel = $i->siblings;
	 my @rel = $i->brothers;
	 my @rel = $i->sisters;
	 my @rel = $i->children;
	 my @rel = $i->sons;
	 my @rel = $i->daughters;
	 my @rel = $i->descendents;
	 my @rel = $i->ancestors;
	 my $ok  = $i->delete;

	 my @fam = $i->famc;
	 my @fam = $i->fams;

DESCRIPTION

       A selection of subroutines to handle individuals in a gedcom file.

       Derived from Gedcom::Record.

HASH MEMBERS

       None.

METHODS

   name
	 my $name = $i->name;

       Return the name of the individual, with spaces normalised.

   cased_name
	 my $cased_name = $i->cased_name;

       Return the name of the individual, with spaces normalised, and surname in upper case.

   surname
	 my $surname = $i->surname;

       Return the surname of the individual.

   given_names
	 my $given_names = $i->given_names;

       Return the given names of the individual, with spaces normalised.

   soundex
	 my $soundex = $i->soundex;

       Return the soundex code of the individual.  This function is only available if Text::Soundex.pm is available.

   sex
	 my $sex = $i->sex;

       Return the sex of the individual, "M", "F" or "U".

   Individual functions
	 my @rel = $i->father;
	 my @rel = $i->mother;
	 my @rel = $i->parents;
	 my @rel = $i->husband;
	 my @rel = $i->wife;
	 my @rel = $i->spouse;
	 my @rel = $i->siblings;
	 my @rel = $i->older_siblings;
	 my @rel = $i->younger_siblings;
	 my @rel = $i->brothers;
	 my @rel = $i->sisters;
	 my @rel = $i->children;
	 my @rel = $i->sons;
	 my @rel = $i->daughters;
	 my @rel = $i->descendents;
	 my @rel = $i->ancestors;

       Return a list of individuals related to $i.

       Each function, even those with a singular name such as father(), returns a list of individuals holding that relation to $i.

       More complex relationships can easily be found using the map function.  eg:

	 my @grandparents = map { $_->parents } $i->parents;

   delete
	 my $ok  = $i->delete;

       Delete $i from the data structure.

       This function will also set $i to undef.  This is to remind you that the individual cannot be used again.

       Returns true iff $i was successfully deleted.

   Family functions
	 my @fam = $i->famc;
	 my @fam = $i->fams;

       Return a list of families to which $i belongs.

       famc() returns those families in which $i is a child.  fams() returns those families in which $i is a spouse.

perl v5.14.2							    2012-04-12						   Gedcom::Individual(3pm)
All times are GMT -4. The time now is 07:19 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy