discover all packages subclassing some other package

2011-06-10 Thread marcos rebelo
I need to discover all the packages (not files, the symbolic tables) that are child of my package, something like: my @child = map { $_->isa('My::Class') } ->ALL_PACKAGES<- How do I create the ->ALL_PACKAGES<- list? Notice that the focus of these question is the creation of ->ALL_PACKAGES<- T

Looking for comments on code

2011-06-10 Thread sono-io
O.K. I've finished my code to create a MySQL db and/or table, and I'd appreciate hearing your comments. It works well, but it needs to be cleaned up before going live. I've left some testing code in. Go ahead and be brutally honest. I've learned so much from this list already. Than

Re: Check if words are in uppercase?

2011-06-10 Thread Rob Dixon
On 09/06/2011 08:59, Beware wrote: Hi all, i've a question on my perl script. In my script i read a file line per line, and check if keywords are in uppercase. To do that, i've an array filled with all used keywords. On each line, i check all keywords with a foreach loop. Well, this is my cod

Re: Check if words are in uppercase?

2011-06-10 Thread John W. Krahn
Beware wrote: Hi all, Hello, i've a question on my perl script. In my script i read a file line per line, and check if keywords are in uppercase. To do that, i've an array filled with all used keywords. On each line, i check all keywords with a foreach loop. Well, this is my code : my $l

Re: solution for Regex

2011-06-10 Thread Gurpreet Singh
Hi, Correct me if i am wrong - $read = 0 unless /\s[A-Z]{3}:/; This might pick up wrong values also - since one of the DBLINKS data (the first record) might also get picked up - it should match this regex. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-ma

Re: Check if words are in uppercase?

2011-06-10 Thread Rob Coops
On Thu, Jun 9, 2011 at 9:59 AM, Beware wrote: > Hi all, > > i've a question on my perl script. > > In my script i read a file line per line, and check if keywords are in > uppercase. To do that, i've an array filled with all used keywords. > > On each line, i check all keywords with a foreach loo

Check if words are in uppercase?

2011-06-10 Thread Beware
Hi all, i've a question on my perl script. In my script i read a file line per line, and check if keywords are in uppercase. To do that, i've an array filled with all used keywords. On each line, i check all keywords with a foreach loop. Well, this is my code : my $lines = 0; while ( ) {

Re: Getting script to run w/o optional module

2011-06-10 Thread Dr.Ruud
On 2011-06-09 23:46, John SJ Anderson wrote: On Thu, Jun 9, 2011 at 17:42, wrote: Using either require, use, or do produces an error if I run the script without the module. Is there a specific function for this purpose, or would I have to do something like wrap a 'use' or 'require' in an i

Re: solution for Regex

2011-06-10 Thread Uri Guttman
> "JD" == John Delacour 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//;

Re: solution for Regex

2011-06-10 Thread John Delacour
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 i