09-02-2016
HI ,
I resolved the error , actually it required use of a different perl at the shebang line.
after changing the perl path its working
thanks all for your support.
This User Gave Thanks to Jcpratap For This Post:
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
I can't get this script ot work and I wa wondering if anyone could help?
I need to open a file and use a subroutine to search each line for a regular expression. If it matches then I need to return a match from the subroutine and print the result?
Any help would be greatly... (11 Replies)
Discussion started by: jmd2004
11 Replies
2. Shell Programming and Scripting
All,
Is it possible to call a subroutine from the perl expect module after logging to a system that is within the same program. My situation is I need to run a logic inside a machine that I'm logging in using the expect module, the logic is also available in the same expect program.
Thanks,... (5 Replies)
Discussion started by: arun_maffy
5 Replies
3. Shell Programming and Scripting
The following subroutine prints 1 instead of the content of the Equipment variable. Can someone tell me why?
#!c:/perl/bin/perl.exe
#
use strict 'vars';
my $Equipments = "data/equips.txt";
unless (open(EQUIP_FH, "$Equipments")) {
print "errors: $Equipments\n"; # This line prints... (1 Reply)
Discussion started by: tqlam
1 Replies
4. Shell Programming and Scripting
Hi,
ive a perl script, where it has a subroutine clear() in it, and i've one shell script which runs in background, from that shell script i wanted to call subroutine which is in perl script, that's perl script is not module, just simple script.
Eg:
perl script <test>
#!... (4 Replies)
Discussion started by: asarunkumar
4 Replies
5. Programming
Hi everyone,
I have given up finally trying to find a way to do this.
I have a subroutine called LoginFirst where I am starting a new SSH session.
I have bunch of subroutines, each one of them uses a (or I have to create
a new SSH constructor everytime) ssh connection to get some value so ... (2 Replies)
Discussion started by: dummy_code
2 Replies
6. UNIX for Dummies Questions & Answers
Hi All,
Thanks all of you for the help you provide to me. Well, I have one more problem, where I am trying to pull file system information in the loop and display the filesystem percentege. I am using following code to achive this, nut it's giving the weired output.
My file system is
... (1 Reply)
Discussion started by: alok.behria
1 Replies
7. Shell Programming and Scripting
Hello All,
I have 2 perl sub-routines.
my $myDir = myDir_path;
my $file;
sub convert(){
system ("./$myConvertScript >> $myDir/$file_CONV" );
$file2 = $myDir/$file_CONV;
}
sub addDB(){
open(CONF, $config)
or die "Cannot Open $config for reading. ";
while(<CONF>){... (1 Reply)
Discussion started by: ad23
1 Replies
8. Shell Programming and Scripting
Hi all,
I'm not even sure a person can do this in perl, seems like you should be able to though.
Here's the error
IO::Socket::INET: connect: Operation now in progress at server_search.pl line 256, <DATA> line 466.
Here's the perl code...
sub ldap_new{
$nl = Net::LDAP->new( "$_" ) or... (3 Replies)
Discussion started by: jtollefson
3 Replies
9. Shell Programming and Scripting
Hi all, I have this code #This program read the triplets from file named "data" into
#an array of array.
use strict;
use warnings;
use Data::Dumper;
use Graph;
use Graph::Subgraph;
my @S;
while (<>) {
push @S, ;
}
print "-----TRIPLETS-------\n";
print Dumper \@S;
#Make... (6 Replies)
Discussion started by: rushadrena
6 Replies
10. Shell Programming and Scripting
Hello All,
I am in the process of learning perl.I have a perl script and based on the arguments passed it would the appropriate subroutine that is defined in the script.
Now, I need to check a value that is defined in the Environment variables and should call the subroutine only if the... (1 Reply)
Discussion started by: filter
1 Replies
LEARN ABOUT MOJAVE
padwalker
PadWalker(3) User Contributed Perl Documentation PadWalker(3)
NAME
PadWalker - play with other peoples' lexical variables
SYNOPSIS
use PadWalker qw(peek_my peek_our peek_sub closed_over);
...
DESCRIPTION
PadWalker is a module which allows you to inspect (and even change!) lexical variables in any subroutine which called you. It will only
show those variables which are in scope at the point of the call.
PadWalker is particularly useful for debugging. It's even used by Perl's built-in debugger. (It can also be used for evil, of course.)
I wouldn't recommend using PadWalker directly in production code, but it's your call. Some of the modules that use PadWalker internally are
certainly safe for and useful in production.
peek_my LEVEL
peek_our LEVEL
The LEVEL argument is interpreted just like the argument to "caller". So peek_my(0) returns a reference to a hash of all the "my"
variables that are currently in scope; peek_my(1) returns a reference to a hash of all the "my" variables that are in scope at the
point where the current sub was called, and so on.
"peek_our" works in the same way, except that it lists the "our" variables rather than the "my" variables.
The hash associates each variable name with a reference to its value. The variable names include the sigil, so the variable $x is
represented by the string '$x'.
For example:
my $x = 12;
my $h = peek_my (0);
${$h->{'$x'}}++;
print $x; # prints 13
Or a more complex example:
sub increment_my_x {
my $h = peek_my (1);
${$h->{'$x'}}++;
}
my $x=5;
increment_my_x;
print $x; # prints 6
peek_sub SUB
The "peek_sub" routine takes a coderef as its argument, and returns a hash of the "my" variables used in that sub. The values will
usually be undefined unless the sub is in use (i.e. in the call-chain) at the time. On the other hand:
my $x = "Hello!";
my $r = peek_sub(sub {$x})->{'$x'};
print "$$r
"; # prints 'Hello!'
If the sub defines several "my" variables with the same name, you'll get the last one. I don't know of any use for "peek_sub" that
isn't broken as a result of this, and it will probably be deprecated in a future version in favour of some alternative interface.
closed_over SUB
"closed_over" is similar to "peek_sub", except that it only lists the "my" variables which are used in the subroutine but defined
outside: in other words, the variables which it closes over. This does have reasonable uses: see Data::Dump::Streamer, for example (a
future version of which may in fact use "closed_over").
set_closed_over SUB, HASH_REF
"set_closed_over" reassigns the pad variables that are closed over by the subroutine.
The second argument is a hash of references, much like the one returned from "closed_over".
var_name LEVEL, VAR_REF
var_name SUB, VAR_REF
"var_name(sub, var_ref)" returns the name of the variable referred to by "var_ref", provided it is a "my" variable used in the sub. The
"sub" parameter can be either a CODE reference or a number. If it's a number, it's treated the same way as the argument to "peek_my".
For example,
my $foo;
print var_name(0, $foo); # prints '$foo'
sub my_name {
return var_name(1, shift);
}
print my_name($foo); # ditto
AUTHOR
Robin Houston <robin@cpan.org>
With contributions from Richard Soberberg, Jesse Luehrs and Yuval Kogman, bug-spotting from Peter Scott, Dave Mitchell and Goro Fuji, and
suggestions from demerphq.
SEE ALSO
Devel::LexAlias, Devel::Caller, Sub::Parameters
COPYRIGHT
Copyright (c) 2000-2009, Robin Houston. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified
under the same terms as Perl itself.
perl v5.18.2 2013-10-27 PadWalker(3)