>>>>> "JD" == John Delacour <johndelac...@gmail.com> writes:
JD> 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//; JD> No it isn't. If you don't "know the data logic" then it's because you JD> have not read the message that started the thread, which contains the JD> 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}:/; JD> Wrong again. That will collect zilch. Do your homework. not interested right now. i am sure i can clean it up if i did. flags like that are a red flag that there is something wrong in the design. too late for me to get into it now. uri -- Uri Guttman ------ u...@stemsystems.com -------- http://www.sysarch.com -- ----- Perl Code Review , Architecture, Development, Training, Support ------ --------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com --------- -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/