I am using bioperl to obtain exon coordinates for a variety of mRNAs.... For example:
#!/usr/bin/perl
use strict;
use Bio::DB::GenBank;
use Data::Dumper;
use Bio::SeqIO;
my @exons;
my $seq;
my $a = Bio::DB::GenBank->new;
my $seq = $a->get_Seq_by_acc('NM_005378');
# Dump Data
for my $feat($seq->get_SeqFeatures) {
if($feat->primary_tag eq 'exon') {
push(@exons, $feat->location);
}
}
I would now like to use Bioperl to obtain the corresponding genomic DNA positions from reference assembly. I am ONLY interested in the corresponding gDNA positions for each reported exon. Does anyone know of a function that could provide this?
Thanks Pierre, this really helped me.