At 18:50 -0400 09/06/2011, Uri Guttman wrote:
...i don't know the data logic so i can't go further. at least you
can run this and assign it to $read to remove redundancy. also you
can declare $read here.
my $read = s/^GENES//;
No it isn't. If you don't "know the data logic" then it's because
you have not read the message that started the thread, which contains
the data.
$read = 0 unless /\s[A-Z]{3}:/;
since you don't do the work unless that passes, just next away:
next if /\s[A-Z]{3}:/;
Wrong again. That will collect zilch. Do your homework.
JD
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
