Re: Image split....

2006-08-28 Thread Gretar Mar Hreggvidsson
Hi I would probably use the module Imager (see CPAN), and it's crop() function. The function doesn't modify the source, it returns a new, cropped image based on the coordinates you submit to it. Best regards, Grétar Mar Nagasamudram, Prasanna Kumar wrote: Hi All Can anybody suggest

Re: Image split....

2006-08-28 Thread Gretar Mar Hreggvidsson
But If I change the following line $img-read(file='p.bmp', type='bmp') or die $img-errstr(); TO $img-read(file='p.jpg', type='jpg') or die $img-errstr(); I get the following error. format 'jpg' not supported at i.pl line 4. The same is for other formatsexcept bmp.

Re: How to remove everything after the last . dot?

2005-03-08 Thread Gretar Mar Hreggvidsson
Hi! There is actually slight error in this code. $a=~s/\.\d+$//; # this does the trick This handles only one or more digits (\d stand for digits), so unless the last part of the string is a number this won't work. Should be something like $a=~s/\.\w+$//; # (\w stands for word charachters)

Re: extract uniprot flatfile

2005-03-07 Thread Gretar Mar Hreggvidsson
Hi Have you looked at Bioperl (www.bioperl.org)? It is goldmine of tools for bioinformatics tasks. Correct me if I'm wrong but do not the Swiss-Prot and UniProt have the same dataformat? You should therefore be able to use something like: $stream = Bio::SeqIO-new(-file = $filename, -format =