Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Trying to get intergenic sequences using BioPerl

by pvaldes (Chaplain)
on Aug 01, 2015 at 23:59 UTC ( [id://1137138] : note . print w/replies, xml ) Need Help??


in reply to Trying to get intergenic sequences using BioPerl

ups, I did it again... stoopid and sexy anonymous monkey. Fix and repeat.

if ($pt eq "CDS" or $pt eq "rRNA" or $pt eq "tRNA")

You can also wrote this line as:

if ($pt =~/^(CDS|[rt]?RNA)$/)