Re: Help regarding regular expression

The regex won't match because there are quotes in there that don't appear in the input.

This seems to work:

use strict;
use warnings;

while (<DATA>)
{
    print "$1\n" if m/GO:(\d+)/
}

__DATA__

dd class="xref">GeneID:947412</dd>
                        
                    
                    <dd class="xref">GenomeReviews:AP009048_GR</dd>
                        
                    
                    <dd class="xref">GenomeReviews:U00096_GR</dd>
                        
                    
                    <dd class="xref"><a href="http://amigo.geneontolog
+y.org/cgi-
+bin/amigo/term-details.cgi?term=GO:0005524">GO:0005524</a></dd>
                        
                    
                    <dd class="xref"><a href="http://amigo.geneontolog
+y.org/cgi-
+bin/amigo/term-details.cgi?term=GO:0005886">GO:0005886</a></dd>
                        
                    
                    <dd class="xref"><a href="http://amigo.geneontolog
+y.org/cgi-
+bin/amigo/term-details.cgi?term=GO:0006810">GO:0006810</a></dd>
                        
                    
                    <dd class="xref"><a href="http://amigo.geneontolog
+y.org/cgi-
+bin/amigo/term-details.cgi?term=GO:0016301">GO:0016301</a></dd>
                        
                    
                    <dd class="xref">HOGENOM:P27254</dd>
[download]

Comment on Re: Help regarding regular expression Download Code

Replies are listed 'Best First'.
Re^2: Help regarding regular expression by chavanak (Initiate) on Aug 06, 2009 at 10:00 UTC
Hi, Thanks a lot for the reply, the code seems to work but it is not giving any output while reading it from another file. Here is my full code: `use LWP::Simple; my $query = shift(@ARGV); die "Dead!!" unless (open(IN,">/home/vivek/Desktop/test12.txt")); $content = get("http://amigo.geneontology.org/cgi-bin/amigo/search.cgi +?query=$query;search_constraint=gp;action=query;view=query/"); die "Couldn’t get the website!" unless defined $content; print IN "$content"; while(IN) { my $line1; print "entered whileloop"; @line1 =~ "$1\n" if m/GO:(\d+)/; print "@line1\n"; close(IN); }` [download] Can you please tell me where I am going wrong?	[reply] [d/l]
Re^3: Help regarding regular expression by moritz (Cardinal) on Aug 06, 2009 at 10:55 UTC
You open `IN` for writing, and later try to read from it - that won't work. Also reading from a file is done with `<IN>` (note the angle brackets). You also match against `@line1` which you never initialized.	[reply] [d/l] [select]