I have to admit that i have not used Perl at all and this is a singular occasion where i have to patch an existing Perl script. I dearly hope i do not have to do it again for the next 15 years and therefore try to avoid having to learn the programming language in earnest.
The OS is AIX 7.1, the Perl Version is 5.01.
I have a script using a (user-written) library:
Code:
#!/usr/bin/perl
use warnings;
use strict;
use v5.10.1; # state, say, given ...
use Vmax;
[...]
In the mentioned library "Vmax" there are some constants (well, at least they look to be constants for my untrained eye) declared. These are used further on in some subfunctions:
Code:
use v5.10.1;
use strict;
use warnings;
my %pg = ( $SIDS[0] => 'stringA',
$SIDS[1] => 'stringB' );
[...]
sub work_pg
{
[...]
for my $sid (@SIDS)
{
say "INFO: do something with $pg{$sid}";
my @cmd = ( 'command', [...], $pg{$sid}, [...] )
RunCmd \@cmd, \$in, \$out, \$err, $LONG;
}
}
This all works well. The "pg" array above represents port groups in two EMC VMax storage systems. As we added new port groups now i need to introduce a switch to the main program to select one set of port groups instead of using these two. Something like (pseudo-code):
Code:
case condition in
1)
my %pg = ( $SIDS[0] => 'stringA',
$SIDS[1] => 'stringB' );
2)
my %pg = ( $SIDS[0] => 'stringC',
$SIDS[1] => 'stringD' );
[...]
end case
Now i have already found out how to add a command line option to the main script but i am not sure how to pass this option to the library and how to tackle the problem with selecting the right set of array values depending on the options value.
I'd like to have the script to be called like this:
Code:
script -foo -bar ... -pg [1|2|3...]
and then select the corresponding value sets for pg[] in the called lib.
I've been wondering if I can make mutexes much easier to use in C++ with creative use of a locking class and variable scope, but I'm not sure if things happen in the order I want. Here's pseudocode for something that could use the class:
int someclass::getvalue()
{
int retval;
... (0 Replies)
Hi,
I am stuck while developing a shell sub-routine which checks the log file for "success" or "failure". The subroutine reads the log file and checks for key word "success", if found it set the variable (found=1). It returns success or failure based on this variable.
My problem is, I can... (2 Replies)
Hi All,
I am new to unix shell scripting,
in the below script "num" is an input file which contains a series of numbers example :
2
3
5
8
I want to add the above all numbers and want the result finally outside the while loop. it prints the value zero instead of the actual expected... (13 Replies)
Hi,
I want to know about the variable scope in shell script.
How can we use the script argument inside the function?
fn () {
echo $1 ## I want this argument should be the main script argument and not the funtion argument.
}
also are there any local,global types in shell script?
if... (3 Replies)
cat test.ksh
#!/usr/bin/ksh
VAR="Dear Friends \n How are you? \n Have a nice day \n"
export VAR
echo "Inside test.ksh";
./test.pl
cat test.pl
#!/usr/bin/perl
print "Inside test.pl \n";
print "$VAR";
Output:
./test.ksh
Inside test.ksh
Inside test.plWhat I want to achieve is, I... (1 Reply)
Hi All,
I've been researching this problem and I am pretty sure that the issue is related to the while loop and the piping. There are plenty of other threads about this issue that recommend removing the pipe and using redirection. However, I haven't been able to get it working using the ssh and... (1 Reply)
Hi,
I use Korn Shell. Searched Forum and modified the way the file is input to the while loop, but still the variable does not seem to be retaining the final count.
while read name
do
Tmp=`echo $name | awk '{print $9 }'`
Count=`cat $Tmp | wc -l`... (6 Replies)
Hello! Before you "bash" me with
- Not another post of this kind
Please read on and you will understand my problem...
I am using the below to extract a sum of the diskIO on a Solaris server.
#!/bin/sh
PATH=/usr/bin:/usr/sbin:/sbin; export PATH
TEMP1="/tmp/raw-sar-output.txt$$"... (3 Replies)
Hi All
Is there is any way to maintain the scope of the variable in unix
Example
x=1
j=1
while
do
..
....
....
while
do
..
..
x=x+1
done
#inner most while loop ends here
done
#outer loop ends here (8 Replies)
Hello,
I met a problem with following code:
#!/usr/bin/perl -w
# test.pl
use strict;
use diagnostics;
use DBI;
my $dbh = DBI->connect(
"DBI:mysql:BibleBook","yifangt","password")
or die("Cannot connect: $DBI::errstr");
my $sql = qq(SELECT * FROM library WHERE isbn =... (2 Replies)
Discussion started by: yifangt
2 Replies
LEARN ABOUT DEBIAN
je::scope
JE::Scope(3pm) User Contributed Perl Documentation JE::Scope(3pm)NAME
JE::Scope - JavaScript scope chain (what makes closures work)
DESCRIPTION
JavaScript code runs within an execution context which has a scope chain associated with it. This class implements this scope chain. When a
variable is accessed the objects in the scope chain are searched till the variable is found.
A JE::Scope object can also be used as global (JE) object. Any methods it does not understand will be delegated to the object at the bottom
of the stack (the far end of the chain), so that "$scope->null" means the same thing as "$scope->[0]->null".
Objects of this class consist of a reference to an array, the elements of which are the objects in the chain (the first element being the
global object). (Think of it as a stack.)
METHODS
find_var($name, $value)
find_var($name)
This method searches through the scope chain, starting at the end of the array, until it finds the variable named by the first
argument. If the second argument is present, it sets the variable. It then returns an lvalue (a JE::LValue object) that references the
variable.
new_var($name, $value)
new_var($name)
This method creates (and optionally sets the value of) a new variable in the variable object (the same thing that JavaScript's "var"
keyword does) and returns an lvalue.
The variable object is the first object in the scope chain (searching from the top of the stack) that is a call object, or
"$scope->[0]" if no call object is found.
CONSTRUCTOR
None. Just bless an array reference. You should not need to do this because it is done for you by the "JE" and "JE::Object::Function"
classes.
SEE ALSO
JE
JE::LValue
JE::Object::Function
perl v5.14.2 2012-03-18 JE::Scope(3pm)