compare two rows in a colum file

lakssreedhar has asked for the wisdom of the Perl Monks concerning the following question:

i have a tab delimited column file as shown

np    np    n_nom    3    {RP}    {RP}
paNiyappeVttirunna    VM_RP    V_RP    o    o    o
np    np    n_nom    -3    {/RP}    {/RP}

np    np    n_nom    3    {RP}    {RP}
nammal    VM_RP    V_RP    o    o    o
np    np    n_nom    -3    {/RP}
[download]

and there are many such sections seperated by a new line.i want to count the no.of sentences that has {RP} {RP} and {/RP} {/RP} occuring together.If the string is missing from either the 4th or 5th column then it should not be counted.

$countC = 0;
while(<>) 
{
chomp;
@array = split(/\t/,$_);
if($array[4] eq $array[5]) 
{
foreach $item(@array){
if(($item =~ /{RP}/) && ($item++ =~ /{\/RP}/))
{
$countC++;
}
}
}
}
print"CorrectRP=>$countC\n";
[download]

Comment on compare two rows in a colum file Select or Download Code

Replies are listed 'Best First'.
Re: compare two rows in a colum file by moritz (Cardinal) on Aug 23, 2012 at 06:36 UTC
Setting $/ to the empty string (paragraph mode) might help you. What have you tried so far? Which problems did you have? Perl 6 - the future is here, just unevenly distributed	[reply]
Re: compare two rows in a colum file by rovf (Priest) on Aug 23, 2012 at 07:51 UTC
i want to have the no.of sentences How is a sentence defined in this context? -- Ronald Fischer <ynnor@mm.st>	[reply] [d/l]
Re: compare two rows in a colum file by ww (Archbishop) on Aug 23, 2012 at 12:08 UTC
nitpick, but important: Perl is case sensitive... and your (inadequate) data sample doesn't show `Rp and /RP` whether `occuring together` or not.	[reply]
Re: compare two rows in a colum file by cheekuperl (Monk) on Aug 23, 2012 at 09:29 UTC
no.of sentences that has both Rp and /RP occuring together In the same sentence i.e. line in the file?? If so, try matching each sentence with a regex like this: `m/RP.*\/RP/` [download] Question by rovf above still holds.	[reply] [d/l]
Re: compare two rows in a colum file by cheekuperl (Monk) on Aug 23, 2012 at 06:14 UTC
Please post the format properly and the code that you tried.	[reply]


The stupid question is the question not asked
	PerlMonks