08-31-2016
I wonder if it's ending up as a string or floating point for some reason. $free=int(....); may convert it to an integer which will play nicer with ==
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 DEBIAN
devel::lexalias
LexAlias(3pm) User Contributed Perl Documentation LexAlias(3pm)
NAME
Devel::LexAlias - alias lexical variables
SYNOPSIS
use Devel::LexAlias qw(lexalias);
sub steal_my_x {
my $foo = 1;
lexalias(1, '$x', $foo);
}
sub foo {
my $x = 22;
print $x; # prints 22
steal_my_x;
print $x; # prints 1
}
DESCRIPTION
Devel::LexAlias provides the ability to alias a lexical variable in a subroutines scope to one of your choosing.
If you don't know why you'd want to do this, I'd suggest that you skip this module. If you think you have a use for it, I'd insist on it.
Still here?
lexalias( $where, $name, $variable )
$where refers to the subroutine in which to alias the lexical, it can be a coderef or a call level such that you'd give to "caller"
$name is the name of the lexical within that subroutine
$variable is a reference to the variable to install at that location
BUGS
lexalias delves into the internals of the interpreter to perform its actions and is so very sensitive to bad data, which will likely result
in flaming death, or a core dump. Consider this a warning.
There is no checking that you are attaching a suitable variable back into the pad as implied by the name of the variable, so it is possible
to do the following:
lexalias( $sub, '$foo', [qw(an array)] );
The behaviour of this is untested, I imagine badness is very close on the horizon though.
SEE ALSO
peek_sub from PadWalker, Devel::Peek
AUTHOR
Richard Clamp <richardc@unixbeard.net> with close reference to PadWalker by Robin Houston
COPYRIGHT
Copyright (c) 2002, Richard Clamp. 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.14.2 2002-07-25 LexAlias(3pm)