[Perl] Command option with optional value. Post: 302885687

Sponsored Content

Top Forums Shell Programming and Scripting [Perl] Command option with optional value. Post 302885687 by ejdv on Tuesday 28th of January 2014 02:39:44 AM

01-28-2014

Registered User

[Perl] Command option with optional value.

Hi,

I would like to parse command line arguments.
The problem I am facing is that I cannot get it right when an option has a optional value.

Example:
# ./ej.pl --remove
# ./ej.pl --remove all

And the script may allow only one option.
So this is wrong:
# ./ej.pl --dummy --remove

I know that Getopt::Long has the colon available to make an option optional, but how to make an option value optional ??

This is what I have come up with so far, as a basis:

Code:

#!/usr/bin/perl -w #-d
use strict;
use File::Basename;
use Getopt::Long;

my $Program=basename($0);
my %Opts;
my $ArgvNum = @ARGV;

printf "Number of command-line arguments : $ArgvNum\n";

my $OptHelp = 0;
my $OptDummy = 0;
my $OptRemoveLog = 0;

GetOptions (
  'help'    => \$OptHelp,
  'dummy'    => \$OptDummy,
  'remove'   => \$OptRemoveLog,
) or &Usage;

printf "OptHelp = $OptHelp\n";
printf "OptDummy = $OptDummy\n";
printf "OptRemoveLog = $OptRemoveLog\n";

if ($OptHelp) { &Usage; }

if ($OptRemoveLog) {
  &RemoveLog($OptRemoveLog);
  exit 0;
}

if ($OptDummy) {
  &Dummy;
  exit 0;
}

printf "No valid options given\n";
exit 0;

sub Usage() {
die "
Usage:\t$Program [-D] [-R [<option>]] [-h]

--dummy           : runs Dummy
--remove [value]  : removes the log files
                    where [value] is:
                      all
                      log
                      save
                   default value is log
--help           : prints this information

";
}

sub Dummy() {
  printf "Executing Dummy sub\n";
  exit 0;
}

sub RemoveLog() {
  my $Mode = shift;
  printf "Executing RemoveLog sub\n";
  printf "RemoveLog Mode = $Mode\n";
  exit 0;
}

Thanks in advance for suggestions.

ejdv

ejdv

View Public Profile for ejdv

Find all posts by ejdv

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

option for ls command

i'm using SunOS 5.7 and I know theres a ls option for seeing what kind of files are in a directory. I was wondering if there was a ls option that could see if the files are txt or files that can be opened in vi

2. Solaris

Why does the 'ps' command with -u option not working?

How can I use the 'ps' command to view current sessions but only for a given process/user, with the -u parm? In older versions of Unix, this used to work, but not in Sun Solaris. Thanks

3. Shell Programming and Scripting

run a perl with option

I have a perl script which runs and send out e-mail if duplicates are found. I would like to run the with option (like -e) so that it will produce the out put only and will not send out e-mail. How can I achieve it. I would appreciate the help. Thanks. Example: ./file1 (sends out e-mail)...

4. HP-UX

who command option not working

Running HP 11.31 on a HP3600. But when I log in as a user the who command works but if I use an option like "who -m" I get nothing. Any thoughts on what is causing this problem.

5. Shell Programming and Scripting

-n option with grep command

Hi, what is the meaning of -n option before the grep command ? grep command searches for the specified string in the file tmp_crontab.txt but what does -n mean ? With Regards

6. Shell Programming and Scripting

perl script command line option driven script

could someone show me a sample command line option driven script? i want to see an easy way to write one and how i can execute it using command line options such as typing in read.pl -i <id> -c <cmds> -s <start> -e <end> would read out all the commands run by ID . from start time to...

7. Shell Programming and Scripting

How to use a variable as a command option?

I am just learning shell scripting and already I found out I have the bad habit of thinking that it is similar to php or c. I learned some basics and now encountered this problem: On shell it is possible to type: $ date --date="2009-10-10 09:08:34" Sat Oct 10 09:08:34 CEST 2009 ...

8. Solaris

Fsck command without any option

Dear all, I want to execute fsck command,can i execute fsck command without any option asking for more confidence. Thanks and Regards Monoj Das

9. Shell Programming and Scripting

Perl debuggin option

I am getting out of memory issue in perl. I need to debug which function taking more memory constraints. what the commands to find out the memory consuming in the perl program.

10. Shell Programming and Scripting

Perl command line option '-n','-p' and multiple files: can it know a file name of a printed line?

I am looking for help in processing of those options: '-n' or '-p' I understand what they do and how to use them. But, I would like to use them with more than one file (and without any shell-loop; loading the 'perl' once.) I did try it and -n works on 2 files. Question is: - is it possible to...

LEARN ABOUT HPUX

rpccp_remove_member

remove member(1m)														 remove member(1m)

NAME

       remove member - Removes a specified member from a group

SYNOPSIS

       rpccp remove member  group-entry-name -m member [-s syntax]

OPTIONS

       Declares  the  entry  name  of the group member to be removed (required).  Indicates the name syntax of the entry name (optional). The only
       value for this option is the dce name syntax, which is the default name syntax. Until an alternative name syntax becomes available,  speci-
       fying the -s option is unnecessary.

ARGUMENTS

       Indicates  the  name  of  the  target group.  For an entry in the local cell, you can omit the cell name and specify only the cell-relative
       name.

DESCRIPTION

       The remove member command removes a specified member from a specified group.

   Privilege Required
       You need read permission and write permission to the CDS object entry (the target group entry).

NOTE

       This command is replaced at Revision 1.1 by the dcecp command and may not be provided in future releases of DCE.

EXAMPLES

       The following commands run RPCCP and remove the member /.:/LandS/anthro/Cal_host_2 from the group  /.:/LandS/dept/Calendar_group:  $  rpccp
       rpccp>  remove  member	  >  -m /.:/LandS/anthro/Cal_host_2   > /.:/LandS/anthro/Calendar_group The following command removes the member
       /.:/LandS/anthro/Cal_host_3 from the group /.:/LandS/anthro/Calendar_group: $ rpccp remove member   > -m /.:/LandS/anthro/Cal_host_3    >
       /.:/LandS/anthro/Calendar_group

RELATED INFORMATION

       Commands: add member(1m), remove group(1m), show group(1m)

																 remove member(1m)

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

option for ls command

Discussion started by: eloquent99

2. Solaris

Why does the 'ps' command with -u option not working?

Discussion started by: ElCaito

3. Shell Programming and Scripting

run a perl with option

Discussion started by: amir07

4. HP-UX

who command option not working

Discussion started by: KMRWHUNTER