prints the block between 1.1 Apply and 1.2 Install.
In another thread I have already suggested to move the P condition before the 1.1 Apply (block start) condition
Hi,
thanks for your help. I wrote this script :
# ! /bin/sh
file=snapshot.txt
cat $file | while read line ;
do
{
myvariable=`grep "Nombre de ROLLBACK internes" |sed 's/.*.=//'`
echo $myvariable
}
done
It looks in a file "snapshot.txt" for the lines containing "Nombre de ROLLBACK... (3 Replies)
Hi ,
I have 5 columns total and am wanting to search lines in columns 3-5 and basically grep -v patterns that match 'BBB_0123' 'BVG_0895' 'BSD_0987'
Does anyone know how to do this? I tried combining grep -v with grep -e but, it didn't work.
Thanks! (5 Replies)
Hello Everyone
In my shell script, I am retrieving the cluster ID and node number of an LPAR using the following command -
lsclcfg -l
This command's output looks as follows -
CLUSTER_NAME CLUSTER_ID NODE_NR
sch1h004 6104567 3
I want to store only the... (3 Replies)
Hello everyone:
I have ran into this a few times now where my skills are just not up to snuff when it comes to Unix. So, I came here to find some beard stroking Unix wizard to help me.
Basically, I am using OS X 10.5 in large scale at work and sometimes I have to run some custom reports. ... (5 Replies)
hi , i am very new to perl . scriptting.. pllease can any one help me ...pleaseeeeeee
i ll have a file which look likes
123 |something |567
456 |welcome |789
457 |inboxpost |790
.
.
123 |something |567
i have to execute all the lines in the file except the first and the... (14 Replies)
Hi,
I use find command to list all the files in a directory and its sub-directories, but the problem is to exclude certain directories during search. Can i give the directory names in command line to skip them and search rest of the directories?
For example i have directories:
test
../test1... (1 Reply)
Hi everyone,
I've really searched for a solution to this and this is what I found so far:
I need to sort a command output (here represented as a "cat file" command) and from the second down to the second-last line based on the second row and then print ALL the output with the specified section... (7 Replies)
Hi,
I have a log file and want to search "0.48976360737438795" with excluding new line character.
Currently i am using the following command:
cat LogFile.log | tr -d '\n' | grep '0.48976360737438795'
This command giving me the response if file size is small but if i am using a big file... (11 Replies)
Hello,
I have 3 columns like shown below:
1 1800 1900
2 1765 1900
3 1654 2054
4 1326 1499
5 1540 1765
I want only those rows where column 2 and column 3's values don't fall within 1800-1900 both inclusive.
My output should only be:
4 1326 1499
5 1540 1765
Is there a quick awk... (3 Replies)
Discussion started by: Gussifinknottle
3 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)