Match exact word/phrase

[Archanak]

Hi,

I have a word like this: "Rna binding proteins" and i want to match this exact phrase. I have written code like this:

 
$sentence="Overall, the participation of additional RNA binding proteins in controlling beta-F1-ATPase expression.";
 
$word="RNA binding proteins";
 
if($sentence=~/\b$word\b/)
{
 print "matched";
 $sentence=~s/(\b$word\b)/<spanstyle="background-color:#E1FF77">$1<\/span>/i;    
 
print "<br> sentence=$sentence<br>";
 
 

Rna binding proteins will be highlighted in sentence.

I have a problem. Many sentences contains this same phrases but it is not getting matched and its not getting highlighted!!

How to write a code so that it should pick up the following sentences which has phrases like this : "Rna-binding protein" "Rna binding protein"?

I don't understand why the sentences with "Rna binding proteins" is not getting retrieved?

with regards
Archana

[nithinpes]

You can try this:

$word="RNA[ -]binding proteins?";
 
if($sentence=~/\b$word\b/i)
{
 print "matched";
########
 

- The words RNA and binding may be separated by a space or a hipen(hence included space and - inside character class, it will match one of these characters).
- Also, from your description, the phrase may contain 'protein' or 'proteins'. The '?' will match one or zero occurence of the character preceeding it ('s' in this case).
- The /i option in the regex makes the pattern match case insensitive (both RNA and Rna will be matched). Also, you can make use of /g option if you want to extend the search for multiple occurences within a line.

[KevinADC]

also, there is an error in the HTML code you posted

<spanstyle=

should be:

<span style=

[Archanak]

also, there is an error in the HTML code you posted

<spanstyle=

should be:

<span style=

Hi,

Ya i corrected but still the same!!!

These are 2 sentences.

Overall, the participation of additional RNA binding proteins in controlling beta-F1-ATPase expression and therefore, in defining the bioenergetic signature of the cancer cell is expected.
 
RNA chaperones are non-specific RNA binding proteins that help RNA folding by resolving misfolded structures or preventing their formation.
 
 

only second sentence "RNA binding proteins" is matched and highlighted but first sentence in not matched.

why the phrase is not matched?

With regards

Archana

[KevinADC]

Are you reading lines from a file or are all the sentences one long string, or what?

[Kelicula]

It is only remembering the last match made. Well actually the first, but perl goes backwards.

You need "match global" modifier.
add a "g" along with your "case-insensitive" modifier (i).

$sentence="Overall, the participation of additional RNA binding proteins in controlling beta-F1-ATPase expression.";
      $word="RNA binding proteins";
 
      if($sentence=~/\b$word\b/)
      {
       print "matched";
       $sentence=~s/(\b$word\b)/<span style="background-color:#E1FF77">$1<\/span>/ig;   
}       
      print "<br> sentence=$sentence<br>";
 

That should do it.
You may need a loop.
For instance, to remove (nested (even deeply nested (like this))) remarks. You could use:

1 while s/\([^()]*\)//g; # This works on $_
 

That's right out of the "Programming Perl" book.

or in your case:

while($sentence=~s/(\b$word\b)/<spanstyle="background-color:#E1FF77">$1<\/span>/i){
print "matched";       
}       
print "<br> sentence=$sentence<br>";
 

In the later case you should NOT use the "g" modifier, it will create an infinite loop. You also wouldn't need the first if statement. It will continue to match, and substitute as long as it can. If it can't right from the start that's ok.

So the final result would be:

$sentence="Overall, the participation of additional RNA binding proteins in controlling beta-F1-ATPase expression.";
$word="RNA binding proteins";
 
       while($sentence=~s/(\b$word\b)/<spanstyle="background-color:#E1FF77">$1<\/span>/i){
print "matched";   
}       
print "<br> sentence=$sentence<br>";
 

Hope it helps!

[Archanak]

It is only remembering the last match made. Well actually the first, but perl goes backwards.

You need "match global" modifier.
add a "g" along with your "case-insensitive" modifier (i).

$sentence="Overall, the participation of additional RNA binding proteins in controlling beta-F1-ATPase expression.";
      $word="RNA binding proteins";
 
      if($sentence=~/\b$word\b/)
      {
       print "matched";
       $sentence=~s/(\b$word\b)/<span style="background-color:#E1FF77">$1<\/span>/ig;   
}       
      print "<br> sentence=$sentence<br>";
 

That should do it.
You may need a loop.
For instance, to remove (nested (even deeply nested (like this))) remarks. You could use:

1 while s/\([^()]*\)//g; # This works on $_
 

That's right out of the "Programming Perl" book.

or in your case:

while($sentence=~s/(\b$word\b)/<spanstyle="background-color:#E1FF77">$1<\/span>/i){
print "matched";       
}       
print "<br> sentence=$sentence<br>";
 

In the later case you should NOT use the "g" modifier, it will create an infinite loop. You also wouldn't need the first if statement. It will continue to match, and substitute as long as it can. If it can't right from the start that's ok.

So the final result would be:

$sentence="Overall, the participation of additional RNA binding proteins in controlling beta-F1-ATPase expression.";
$word="RNA binding proteins";
 
       while($sentence=~s/(\b$word\b)/<spanstyle="background-color:#E1FF77">$1<\/span>/i){
print "matched";   
}       
print "<br> sentence=$sentence<br>";
 

Hope it helps!

Hi,

I tried it didn't work!!!

I have paragraph in file an splitting paragraph into sentences and then i am matching word for that sentence.

Here is the code.

open(FH,"param.txt")|| die "cannot open file\n";
 
while(<FH>)
{
 
        $content.=$_;
        if($_=~/PMID:(.*)/)
        {
                $content_all{$_}=$content;
                $content="";
                @sentences=split("\n\n",$content_all{$_});
                for($i=0;$i<=$#sentences;$i++)
                {
                     print "<br> ***** $sentences[$i] ---> $i <br>";
                }
                &subpassparam($content_all{$_});
        }
}
sub subpassparam
{
                $abs=$_[0];
                #print "<br>abstract passed = $abs <br>";
                @sentences=split("\n\n",$content_all{$_});
                @list=split /[.]\s+\W*/, $sentences[4];
                 foreach(@list)
                {
                        #print "<br>sentences = $_ <br>";
                         if($_=~/\b$word\b/)
                          {
                                print "<br>yes its matching <br>";
                                $_=~s/(\b$word\b)/<span style="background-color:#E1FF77">$1<\/span>/img;
                                 print "<br>sentences only at list = $_ <br> ";
                             }
                         }
}
 

Here is the input file.

Pull down experiments identified five novel TDRD3 interacting partners, most of which are potentially methylated RNA binding proteins 
 
Here we develop the notion that mRNA regulation via RNA binding proteins, or ribonomics, also contributes to post-ischemic TA 
 
 
PUF proteins comprise a highly conserved family of sequence-specific RNA binding proteins that regulate target mRNAs via binding directly to their 3'UTRs 
 
We review here results arising from the systematic functional analysis of Nova, a neuron-specific RNA binding protein targeted in an autoimmune neurological disorder associated with cancer 
 
A group of RNA binding proteins exerts their roles through the autonomous flowering pathway
 
We have previously identified and characterized two novel nuclear RNA binding proteins, p34 and p37, which have been shown to bind 5S rRNA in Trypanosoma brucei  
 
These mRNAs encode RNA binding proteins, signaling molecules and a replication-independent histone
 
 
Among the observed 3'UTR RNA binding proteins, we have confirmed a 52 kDa protein as the human La autoantigen by using purified recombinant protein and a polyclonal La antibody 
 
The modulation of mRNA binding proteins, therefore, illuminates a promising approach for the pharmacotherapy of those key pathologies mentioned above and characterized by a posttranscriptional dysregulation.
 

How to match exact word?
Is this approach wrong!!!
None of these sentences are getting picked by the program!!!
How to solve this problem?



With regards
Archana

[Kelicula]

Hi,

I tried it didn't work!!!

I have paragraph in file an splitting paragraph into sentences and then i am matching word for that sentence.

Here is the code.

open(FH,"param.txt")|| die "cannot open file\n";
 
while(<FH>)
{
 
        $content.=$_;
        if($_=~/PMID:(.*)/)
        {
                $content_all{$_}=$content;
                $content="";
                @sentences=split("\n\n",$content_all{$_});
                for($i=0;$i<=$#sentences;$i++)
                {
                     print "<br> ***** $sentences[$i] ---> $i <br>";
                }
                &subpassparam($content_all{$_});
        }
}
sub subpassparam
{
                $abs=$_[0];
                #print "<br>abstract passed = $abs <br>";
                @sentences=split("\n\n",$content_all{$_});
                @list=split /[.]\s+\W*/, $sentences[4];
                 foreach(@list)
                {
                        #print "<br>sentences = $_ <br>";
                         if($_=~/\b$word\b/)
                          {
                                print "<br>yes its matching <br>";
                                $_=~s/(\b$word\b)/<span style="background-color:#E1FF77">$1<\/span>/img;
                                 print "<br>sentences only at list = $_ <br> ";
                             }
                         }
}
 

Here is the input file.

Pull down experiments identified five novel TDRD3 interacting partners, most of which are potentially methylated RNA binding proteins 
 
Here we develop the notion that mRNA regulation via RNA binding proteins, or ribonomics, also contributes to post-ischemic TA 
 
 
PUF proteins comprise a highly conserved family of sequence-specific RNA binding proteins that regulate target mRNAs via binding directly to their 3'UTRs 
 
We review here results arising from the systematic functional analysis of Nova, a neuron-specific RNA binding protein targeted in an autoimmune neurological disorder associated with cancer 
 
A group of RNA binding proteins exerts their roles through the autonomous flowering pathway
 
We have previously identified and characterized two novel nuclear RNA binding proteins, p34 and p37, which have been shown to bind 5S rRNA in Trypanosoma brucei  
 
These mRNAs encode RNA binding proteins, signaling molecules and a replication-independent histone
 
 
Among the observed 3'UTR RNA binding proteins, we have confirmed a 52 kDa protein as the human La autoantigen by using purified recombinant protein and a polyclonal La antibody 
 
The modulation of mRNA binding proteins, therefore, illuminates a promising approach for the pharmacotherapy of those key pathologies mentioned above and characterized by a posttranscriptional dysregulation.
 

How to match exact word?
Is this approach wrong!!!
None of these sentences are getting picked by the program!!!
How to solve this problem?



With regards
Archana

The statement you have:

while(<FH>){
1;
}
 

Will automatically go through each "line" of the input file, loading them one at a time into $_. I'm not sure what this line does:

if($_=~/PMID:(.*)/){
 

But this code will find all matches and add the span around them. I assumed you also wanted to match "mRNA binding proteins".

 
use diagnostics;
use warnings;
 
my $word = 'RNA binding proteins';
 
open(FH, "param.txt") or die "Can't open file: $!";
 
while(<FH>){
if(/$word/){
$_ =~ s/(\bm?$word\b)/<span style="background-color:#E1FF77">$1<\/span>/img;
}
print;
}
 
close(FH);
 

If you also want to print ONLY the lines that contained a match try this.

use diagnostics;
use warnings;
 
my $word = 'RNA binding proteins';
 
open(FH, "param.txt") or die "Can't open file: $!";
 
while(<FH>){
if(/$word/){
$_ =~ s/(\bm?$word\b)/<span style="background-color:#E1FF77">$1<\/span>/img;
print "Match Found:\n";
print "$_\n\n";
}
 
}
 
close(FH);
 

[Archanak]

The statement you have:

while(<FH>){
1;
}
 

Will automatically go through each "line" of the input file, loading them one at a time into $_. I'm not sure what this line does:

if($_=~/PMID:(.*)/){
 

But this code will find all matches and add the span around them. I assumed you also wanted to match "mRNA binding proteins".

 
use diagnostics;
use warnings;
 
my $word = 'RNA binding proteins';
 
open(FH, "param.txt") or die "Can't open file: $!";
 
while(<FH>){
if(/$word/){
$_ =~ s/(\bm?$word\b)/<span style="background-color:#E1FF77">$1<\/span>/img;
}
print;
}
 
close(FH);
 

If you also want to print ONLY the lines that contained a match try this.

use diagnostics;
use warnings;
 
my $word = 'RNA binding proteins';
 
open(FH, "param.txt") or die "Can't open file: $!";
 
while(<FH>){
if(/$word/){
$_ =~ s/(\bm?$word\b)/<span style="background-color:#E1FF77">$1<\/span>/img;
print "Match Found:\n";
print "$_\n\n";
}
 
}
 
close(FH);
 

Hi,

I have found few sentences that has that word like this:
I could not match that word for these sentences.

 
eukaryotic type KH-domain, typical of the KH-domain type I superfamily of RNA
binding proteins, and both recombinant and native MOEP19 bind polynucleotides.
 
Karyopherinbeta2 (Kap beta2) or transportin imports numerous RNA binding
proteins into the nucleus. 
 
many questions remain about how these mechanisms are regulated by RNA binding
proteins in the environment of differentiated cells and tissues. 
 

The word is not matching for these sentences and in such case how should i match RNA binding proteins?

How should i check for the conditions to match this word?

With regards
Archana

[nithinpes]

That is because you have a newline separating the words of the phrase. That needs to be included in the regex that you are using. To include all the conditions that you have mentioned so far, set $word as below:

$word="RNA( |-|\n)binding( |\n)proteins?";
 

This does not work if you are reading one line at a time. You need to modify your input record separator to read entire text at once.

open(FH,"param.txt")|| die "cannot open file\n";
$/ ="";
 

[nithinpes]

Also, while reading entire text at once, you need to use /g modifier to search for the pattern repeatedy in the input string.
The line :

while(<FH>){
if(/$word/){
 

should be changed to:

while(<FH>){
while(/$word/g){
 
 

[Archanak]

Also, while reading entire text at once, you need to use /g modifier to search for the pattern repeatedy in the input string.
The line :

while(<FH>){
if(/$word/){
 

should be changed to:

while(<FH>){
while(/$word/g){
 
 

Hi,

I have one problem now.

Now i have considered RNA binding protein as an example.

But i have a text box to take user input.

Here is the code.

 
$word=param('query');
 
 

Here is the input sentences.

 
IRES elements consist of cis-acting RNA structures that often operate in association with specific RNA-binding proteins to recruit the translational machinery.
 
Overall, the participation of additional RNA binding proteins in controlling beta-F1-ATPase expression and therefore, in defining the bioenergetic signature of the cancer cell is expected.
 
We describe here a complete scaffold-independent analysis of the RNA-binding protein of the four KH domains of KSRP. 
 
RNA chaperones are non-specific RNA binding protein that help RNA folding by resolving misfolded structures or preventing their formation. 
 
 

How to match $word to retrieve all these sentences?

I gave like this but its not working!!!

 
if($word=~/(.*)[\s\-]?/)
 
 

Its matching with last sentence only!!!

But i want to match $word with all the sentences!!!

How should i give the regular expression?

With regards
Archana

[Kelicula]

Hi,

I have one problem now.

Now i have considered RNA binding protein as an example.

But i have a text box to take user input.

Here is the code.

 
$word=param('query');
 
 

Here is the input sentences.

 
IRES elements consist of cis-acting RNA structures that often operate in association with specific RNA-binding proteins to recruit the translational machinery.
 
Overall, the participation of additional RNA binding proteins in controlling beta-F1-ATPase expression and therefore, in defining the bioenergetic signature of the cancer cell is expected.
 
We describe here a complete scaffold-independent analysis of the RNA-binding protein of the four KH domains of KSRP. 
 
RNA chaperones are non-specific RNA binding protein that help RNA folding by resolving misfolded structures or preventing their formation. 
 
 

How to match $word to retrieve all these sentences?

I gave like this but its not working!!!

 
if($word=~/(.*)[\s\-]?/)
 
 

Its matching with last sentence only!!!

But i want to match $word with all the sentences!!!

How should i give the regular expression?

With regards
Archana

Just add a "g" for global search.

Try to understand all of this: Regular Expression Tutorial