minky arora wrote:
Gunnar Hjalmarsson wrote:
minky arora wrote:
I have been able to retrive all the info i need and in
the format that I want.
Would you mind letting us know about that format? Doing so might help us
help you with your next question...
Sure,
If i understand correctly,I am pasting a part of the file to give you
a better idea of wat I am trying to do:
<new file extract snipped>
No, that's not what I meant. Anyway, if the file is not huge, I think I
would simply slurp it.
my %diffs;
{
local $/;
local $_ = <FILE>;
while ( m/
gene\s+\d+\.\.(\d+).+?
gene="([^"]+)".+?
CDS\s+\d+\.\.(\d+)
/gsx ) {
$diffs{$2} = $1 - $3;
}
}
print "$_ -> $diffs{$_}\n" for keys %diffs;
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
