[Bioperl-l] Protein ID to Gene ID

[Miroslava Cuperlovic-Culf]

Dear All,

I am trying to make a small program that would get the GeneBank gene ID from
GenBank protein ID. I think that DBSOURCE in GenBank entry for protein has
the number I need. So I wrote something like this:

my $ac = $seq->annotation;

my @values = $ac->get_Annotations('dblink');

for my $value ( @values ) {

print "DBSOURCE ", ",$value->tagname,$value->as_text,"\n";

}

But I get nothing. What is going on here? Any info/ideas would be greatly
appreciated,

Sincerely,

Mira