Perl : Getopts and Strict -How to solve Post: 302876518

Sponsored Content

Top Forums Shell Programming and Scripting Perl : Getopts and Strict -How to solve Post 302876518 by popeye on Monday 25th of November 2013 07:35:57 AM

11-25-2013

Registered User

Perl : Getopts and Strict -How to solve

How do I get past the error when using strict and GetOpts ?

Code:

#!/usr/bin/perl
use strict;
use Getopt::Std; 
 
# Process the command line options 
die "Usage: $0 -r <router> -u <username> -p <password> -e <enable password>\n" if (@ARGV < 6); 
 
exit if (!getopts('r:u:p:e:')); 
 
my $unam=$opt_u; 
my $psswd=$opt_p; 
my $epsswd=$opt_e; 
my $dev=$opt_r; 


print "$unam $psswd $epsswd $dev "

Quote:

/home/popeye> topt -r 10.10.10.10 -u popeye -p thesailorman
Global symbol "$opt_u" requires explicit package name at topt line 10.
Global symbol "$opt_p" requires explicit package name at topt line 11.
Global symbol "$opt_e" requires explicit package name at topt line 12.
Global symbol "$opt_r" requires explicit package name at topt line 13.
Execution of topt aborted due to compilation errors.

Thanks in advance

popeye

View Public Profile for popeye

Find all posts by popeye

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How to solve this

I have to write an script for.. CUST: 123 trans: some contents CUST: 1234 trans: some contents Now wat i have to do is this: CUST:123 akash trans: some contents CUST:1234 akash1 trans: I have been able to add...

2. Programming

does any one know how to solve?

Hello experts, Here is my code.I can create the database.But I also want it to see standard output.Please see the blocked code.If i use them they show me weired symbols. #include <stdio.h> #include <stdlib.h> struct date { int month; int day; int year; }; struct empRec{...

3. UNIX for Dummies Questions & Answers

Can somebody solve this

I have to find the files older than 200 days from a path and copy them to some other directory with the current date stamp attached to it. i have written like follows: #!/bin/ksh DSTAMP=$(date +"%y%m%d%H%M") rm $CA_OUT_PATH/ftp_logs/temp touch $CA_OUT_PATH/ftp_logs/temp chmod 777...

4. Shell Programming and Scripting

Strict Argument

Im trying to write a bash script that has an if statment that when the user enters ONLY that exact argument, will echo what follows that conditon. For example: for file in $1 do if then Var1=$(cat hello | egrep "that pattern" | awk '{ print $NF }') cat $Var1 fi done Basically,...

5. Shell Programming and Scripting

Perl strict

What is the sake of using `use strict;` in perl codes? and how can avoid it?.TnX.

6. Shell Programming and Scripting

New PERL guru's help on strict.pm

I opened strict.pm and found some not understandable stuff, please let me know if you have any Idea on the same. 1) Line 23 => $bits |= (what is $= here how it affect the statement) 2) Line 36 => $^H (what is that I haven't found any statement on this in google) 3) Line 41 =>...

7. Shell Programming and Scripting

getopts function in Perl

Hi All I have searches getopts function in Perl a lot, but yet i didn't cleared with it. First I want to know what is the meaning of getopts('t:c:', \%options); and please explain getopts function in an easy way..

8. Shell Programming and Scripting

Help! Can't locate strict.pm after Cygwin update

I installed gcc4 today using setup.exe from cygwin. However, I cannot run any of my perl program after that. For example, Run@Run-THINK /home $ perl Process.pl Can't locate strict.pm in @INC (@INC contains: /usr/lib/perl5/5.10/i686-cygwin / usr/lib/perl5/5.10...

9. UNIX for Advanced & Expert Users

Ssh disable strict checking

What are the different ways to disable ssh strict checking? I've seen this mentioned a few times but it doesn't seem to be working. $ ssh -o 'StrictHostKeyChecking no' admin@hostnamehttp://docs.oracle.com/cd/E35328_01/E35336/html/vmcli-ssh.html Is there a file somewhere in /etc that I could...

LEARN ABOUT MOJAVE

moosex::getopt::gld

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

NAME

       MooseX::Getopt::GLD - A Moose role for processing command line options with Getopt::Long::Descriptive

VERSION

       version 0.59

SYNOPSIS

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

	 with 'MooseX::Getopt::GLD';

	 # or

	 with 'MooseX::Getopt::GLD' => { getopt_conf => [ 'pass_through', ... ] };

	 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

OPTIONS

       This role is a parameterized role. It accepts one configuration parameter, "getopt_conf". This parameter is an ArrayRef of strings, which
       are Getopt::Long configuration options (see "Configuring Getopt::Long" in Getopt::Long)

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::GLD(3pm)