05-05-2009
perl - reading from a file conditionally
Hi,
I am new to perl.
I want to read from a file on the basis of some conditions..
I want to define parameters in a configuration file in such a manner like...
Quote:
if $var=block1
then
HOST=H1
PORT=P1
if $var=block2
then
HOST=H2
PORT=P2
etc..
in my perl script, theer is a variable like this..
then i want to read values from first if block from the file
if $var value change to block2 then i want to read the values from 2nd if block from the file.
How can i achieve this..?
Please help.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
is there a perl equivalent to sscanf? or something where I get the strings separated by spaces? (1 Reply)
Discussion started by: karyn1617
1 Replies
2. UNIX for Dummies Questions & Answers
Hi,
Here is something that am trying with perl
#! /opt/third-party/bin/perl
open(fh, "s") || die "unable to open the file <small>";
@ch = ();
$i = 0;
while( $content = <fh> )
{
if( $i <= 5 ) {
push(@ch, $content);
$i++;
}
else {
$i = 1;
foreach(@ch) { (8 Replies)
Discussion started by: matrixmadhan
8 Replies
3. Shell Programming and Scripting
Hey,
I'm trying to read a file from a server. Simple file with some numbers.
Here is the code i'm running.
use Net::SSH::Perl::SSH1 ;
$scon = Net::SSH::Perl->new ("com123.sever.mydomain.com",(protocol=>'2',port=>'22',debug=>'true'));
$scon->login("user123","pass123");
open(FILE,... (9 Replies)
Discussion started by: Phi01
9 Replies
4. Shell Programming and Scripting
Hi, I am writting some perl scripts for daily backup process. In which I want to pass some data/referance from another txt file. Text file contains only one column and multiple rows. I want to pass this data to variables of another perl script.
e.g.
Refdoc.txt file contains data as:
perl1... (3 Replies)
Discussion started by: n.dba
3 Replies
5. Shell Programming and Scripting
Hi Everyone, I am very new to perl, but came across a situation wherein I have to read a c++ header file and write the datatype, its identifier and also the length to an excel file. There can be other header files, in the directory but I should browse through the file which has only "_mef:" string... (9 Replies)
Discussion started by: ramakanth_burra
9 Replies
6. Shell Programming and Scripting
Need perl script, data file will be csv format.
I have text file contains 2 colums.
Filename Foldernumber
aaaa 13455
bbbb 23465
cccc 26689
I have two location 1. files present and 2. folders present. I need to search for file and folder if folder... (3 Replies)
Discussion started by: hnkumar
3 Replies
7. Shell Programming and Scripting
Hi Everyone!
I have a problem in reading a specific column from .xls file using perl language and then manipulating on given criteria.
Detailed Description of the problem::
I have one .xls file, in which i have to populate two columns based on Period_date column which is in same file.
My... (1 Reply)
Discussion started by: kvth
1 Replies
8. Shell Programming and Scripting
Hello,
I am trying to read from a file using PERL:confused, however i need to read specific portions of the file
the file goes like this
<Name 1
Hono
<Name 2
Jack
and so on
anyways i need to be able to write a program that ONLY opens the lines beginning with "<"? so it would... (2 Replies)
Discussion started by: UNDstudent
2 Replies
9. UNIX for Dummies Questions & Answers
If a form's action is the following Perl script how do I make it print the entire contents of the file on the screen?
if(param())
{
my $uploadedFile = param('file');#in the html page 'file' is the value of the name attribute of the input
my $fh = upload($uploadedFile);
... (1 Reply)
Discussion started by: zerohour
1 Replies
10. Shell Programming and Scripting
Good morning, I appreciate any assistance that I can get from the monks out there. I am able to get this to work for me so that I can do a hostname lookup if I only specify one hostname in the script. What I want to do is have a file with hostnames and do lookups for each name in the file. Here is... (1 Reply)
Discussion started by: brianjb
1 Replies
LEARN ABOUT DEBIAN
devel::refcount
Devel::Refcount(3pm) User Contributed Perl Documentation Devel::Refcount(3pm)
NAME
"Devel::Refcount" - obtain the REFCNT value of a referent
SYNOPSIS
use Devel::Refcount qw( refcount );
my $anon = [];
print "Anon ARRAY $anon has " . refcount($anon) . " reference
";
my $otherref = $anon;
print "Anon ARRAY $anon now has " . refcount($anon) . " references
";
DESCRIPTION
This module provides a single function which obtains the reference count of the object being pointed to by the passed reference value.
FUNCTIONS
$count = refcount($ref)
Returns the reference count of the object being pointed to by $ref.
COMPARISON WITH SvREFCNT
This function differs from "Devel::Peek::SvREFCNT" in that SvREFCNT() gives the reference count of the SV object itself that it is passed,
whereas refcount() gives the count of the object being pointed to. This allows it to give the count of any referent (i.e. ARRAY, HASH,
CODE, GLOB and Regexp types) as well.
Consider the following example program:
use Devel::Peek qw( SvREFCNT );
use Devel::Refcount qw( refcount );
sub printcount
{
my $name = shift;
printf "%30s has SvREFCNT=%d, refcount=%d
",
$name, SvREFCNT($_[0]), refcount($_[0]);
}
my $var = [];
printcount 'Initially, $var', $var;
my $othervar = $var;
printcount 'Before CODE ref, $var', $var;
printcount '$othervar', $othervar;
my $code = sub { undef $var };
printcount 'After CODE ref, $var', $var;
printcount '$othervar', $othervar;
This produces the output
Initially, $var has SvREFCNT=1, refcount=1
Before CODE ref, $var has SvREFCNT=1, refcount=2
$othervar has SvREFCNT=1, refcount=2
After CODE ref, $var has SvREFCNT=2, refcount=2
$othervar has SvREFCNT=1, refcount=2
Here, we see that SvREFCNT() counts the number of references to the SV object passed in as the scalar value - the $var or $othervar
respectively, whereas refcount() counts the number of reference values that point to the referent object - the anonymous ARRAY in this
case.
Before the CODE reference is constructed, both $var and $othervar have SvREFCNT() of 1, as they exist only in the current lexical pad. The
anonymous ARRAY has a refcount() of 2, because both $var and $othervar store a reference to it.
After the CODE reference is constructed, the $var variable now has an SvREFCNT() of 2, because it also appears in the lexical pad for the
new anonymous CODE block.
PURE-PERL FALLBACK
An XS implementation of this function is provided, and is used by default. If the XS library cannot be loaded, a fallback implementation in
pure perl using the "B" module is used instead. This will behave identically, but is much slower.
Rate pp xs
pp 225985/s -- -66%
xs 669570/s 196% --
SEE ALSO
o Test::Refcount - assert reference counts on objects
AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
perl v5.14.2 2011-11-15 Devel::Refcount(3pm)