>>>>> "JD" == John Delacour <[email protected]> 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 ------ [email protected] -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
