Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Using perl to get options from command line
Top Forums Shell Programming and Scripting Using perl to get options from command line Post 302434216 by KenJackson on Thursday 1st of July 2010 10:17:22 PM
Old 07-01-2010
I've never used getopts. I don't like the concept.
But here's a piece of something I use that might work for you.
Code:
while ($_ = shift @ARGV) {
    /^--/ && s/^--/-/;
    SWITCH: {
        /^-skip/ && do {
            $skipcount = /=/ ? do { s/.*=//, $_ } : shift @ARGV;
            if ($skipcount =~ /\D/) {
                warn "ERROR: The skipcount isn't a number: $skipcount\n";
                exit 1;
            }
            last SWITCH;
        };
        /^-max/ && do {
            $maxcount = /=/ ? do { s/.*=//, $_ } : shift @ARGV;
            if ($maxcount =~ /\D/) {
                warn "ERROR: The maxcount isn't a number: $maxcount\n";
                exit 1;
            }
            last SWITCH;
        };
        /^-n$/ && do { $just_print = 1;   last SWITCH; };
        /^-v$/ && do { $verbose = 1;      last SWITCH; };
        /^-./ && do {
            warn "WARNING: Ignoring unknown switch $_\n";
            sleep 100;
            last SWITCH;
        };
        if ($filename ne "-") {
            warn "ERROR: Too many files\n";
            exit 1;
        }
        $filename = $_;
    }
}

 

10 More Discussions You Might Find Interesting

1. Programming

Executing command line options

Can someone please tell me how to modify/add to this code so that it recognizes UNIX command options (all beginning with "-") and executes the command with options? #include<stdio.h> #include<stdlib.h> int main(int argc, char *argv) { int i; system("stty -echo"); ... (8 Replies)
Discussion started by: Safia
8 Replies

2. Shell Programming and Scripting

Associated array from command line options

I am looking to populate an (associated) array with a command line argument. The command line would look something like this: alert -action test -priority '10' -module test_module . . . The associated array would look like this after the data is read in flag=(action=test priority=10... (1 Reply)
Discussion started by: jperret
1 Replies

3. Shell Programming and Scripting

how to? launch command with string of command line options

my description from another thread... here's my code: #!/bin/bash IFS=$'\n' function OutputName() { input=$1 echo $input input=`echo "$input" | sed -e 's/.//'` input=`echo "$input".avi` output_name=$input } if ]; then echo... (5 Replies)
Discussion started by: TinCanFury
5 Replies

4. Shell Programming and Scripting

perl/unix: script in command line works but not in perl

so in unix this command works works and shows me a list of directories find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt but when i try running a perl script to run this command my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Discussion started by: kpddong
2 Replies

5. Shell Programming and Scripting

Run perl script, with command-line options

Hello everyone, I have a perl script which takes various command line options from user like : test.pl -i <input_file> -o <output_file> -d <value> -c <value> Now I have multiple input files in a directory: <input_file_1> <input_file_2> <input_file_3> <input_file_4> ..... .... ...... (6 Replies)
Discussion started by: ad23
6 Replies

6. Shell Programming and Scripting

Issue with spaces in Java command line options

Hi, I am writing a shell script to build Java options dynamically in a variable array and pass them to java.exe. If an option value contains a space, I cannot find a way to get it interpreted correctly. Here is my example: #!/bin/bash JAVA_HOME=/opt/jvm/jre1.5.0_18 JAVA_OPTS=("-Xms256m... (4 Replies)
Discussion started by: Romain
4 Replies

7. Shell Programming and Scripting

awk script file command line options

Being new to awk I have a really basic question. It just has to be in the archives but it didn't bite me when I went looking for it. I've written an awk script, placed it in a file, added the "#!/usr/bin/awk -f" at the top of the script and away I go. "% myAwk <inputfile>" gives me exactly what... (2 Replies)
Discussion started by: tomr2k
2 Replies

8. UNIX for Dummies Questions & Answers

Running set options from the command line and bash command

I'm reading about debugging aids in bash and have come across the set command. It says in my little book that an addition to typing set you can also use them "on the command line when running a script..." and it lists this in a small table: set -o option Command Line... (5 Replies)
Discussion started by: Straitsfan
5 Replies

9. Shell Programming and Scripting

Reading command line options from bash script

I have the following code and I am calling it using ./raytrac.bash -u and getting problems. For some reason opt_usage is still 0. opt_usage=0 iarg=0 narg=$# while (($iarg < $narg)) do (( iarg = $iarg + 1 )) arg=$argv usrInputFlag=`echo $arg | awk '/=/ {print 1}; ! /=/... (22 Replies)
Discussion started by: kristinu
22 Replies

10. Shell Programming and Scripting

Processing Multiple Arguments in Command Line Options

Hi All, I am new to scripting. Could you please assist me . Here is my requirement. I have written a script that has 2 option flags defined. -l) calls some function with the arguments passed in front of -l -r) calls second function with the arguments passed in front of -r *) calls the... (7 Replies)
Discussion started by: Jay Deshpande
7 Replies

LEARN ABOUT CENTOS

extutils::command::mm

ExtUtils::Command::MM(3)				User Contributed Perl Documentation				  ExtUtils::Command::MM(3)

NAME

       ExtUtils::Command::MM - Commands for the MM's to use in Makefiles

SYNOPSIS

	 perl "-MExtUtils::Command::MM" -e "function" "--" arguments...

DESCRIPTION

       FOR INTERNAL USE ONLY!  The interface is not stable.

       ExtUtils::Command::MM encapsulates code which would otherwise have to be done with large "one" liners.

       Any $(FOO) used in the examples are make variables, not Perl.

       test_harness
	     test_harness($verbose, @test_libs);

	   Runs the tests on @ARGV via Test::Harness passing through the $verbose flag.  Any @test_libs will be unshifted onto the test's @INC.

	   @test_libs are run in alphabetical order.

       pod2man
	     pod2man( '--option=value',
		      $podfile1 => $manpage1,
		      $podfile2 => $manpage2,
		      ...
		    );

	     # or args on @ARGV

	   pod2man() is a function performing most of the duties of the pod2man program.  Its arguments are exactly the same as pod2man as of
	   5.8.0 with the addition of:

	       --perm_rw   octal permission to set the resulting manpage to

	   And the removal of:

	       --verbose/-v
	       --help/-h

	   If no arguments are given to pod2man it will read from @ARGV.

	   If Pod::Man is unavailable, this function will warn and return undef.

       warn_if_old_packlist
	     perl "-MExtUtils::Command::MM" -e warn_if_old_packlist <somefile>

	   Displays a warning that an old packlist file was found.  Reads the filename from @ARGV.

       perllocal_install
	       perl "-MExtUtils::Command::MM" -e perllocal_install
		   <type> <module name> <key> <value> ...

	       # VMS only, key|value pairs come on STDIN
	       perl "-MExtUtils::Command::MM" -e perllocal_install
		   <type> <module name> < <key>|<value> ...

	   Prints a fragment of POD suitable for appending to perllocal.pod.  Arguments are read from @ARGV.

	   'type' is the type of what you're installing.  Usually 'Module'.

	   'module name' is simply the name of your module.  (Foo::Bar)

	   Key/value pairs are extra information about the module.  Fields include:

	       installed into	   which directory your module was out into
	       LINKTYPE 	   dynamic or static linking
	       VERSION		   module version number
	       EXE_FILES	   any executables installed in a space seperated
				   list

       uninstall
	       perl "-MExtUtils::Command::MM" -e uninstall <packlist>

	   A wrapper around ExtUtils::Install::uninstall().  Warns that uninstallation is deprecated and doesn't actually perform the
	   uninstallation.

perl v5.16.3							    2013-06-14						  ExtUtils::Command::MM(3)
All times are GMT -4. The time now is 04:11 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy