regex parsing-Beginner

[minky arora]

Hi All,

I am quite new to perl so pls bear with me.I am trying to do some
Bioinformatics Analysis.A part of my file looks like this:


gene            410..1750
                     /gene="dnaA"
                     /db_xref="EMBL:2632267"
     CDS             410..1750
                     /gene="dnaA"
                     /function="initiation of chromosome replication (DNA
                     synthesis)"
                     /note="alternate gene name: dnaH, dnaJ, dnaK"
                     /codon_start=1
                     /transl_table=11
                     /protein_id="CAB11777.1"
                     /db_xref="GI:2632268"



I need to extract the range for gene as well as CDS and compare them.

SO far this is where Ive reached:
#!/usr/bin/perl
use warnings;
use strict;
my $line;
my @new;
my $line1;
open FILE,"/users/meenaksharora/bio.txt"or die"cannot open $!\n";
foreach $line(<FILE>){
if($line=~m/gene/)
   [EMAIL PROTECTED];
    }
}
foreach $line1(@new){
 if($line1=~m/(\d)+\.\./)
  {   print $line1;print "hello";
  }
}


I am not able to extract the lines with the digits.I am not sure
why.IS there a better way to do this?? Can someone guide me how to go
abt that?

Thanks so much
Min.


~

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/