I am trying to get to grips with bioperl and have some really stupid questions.
Basically all variables seem to be a reference to something rather than holding the actual value themselves, which is causing me problems when it comes to printing them out to see what they hold.
Here is my code:
How can I print the contents of @f ?my $seqio = $gb->get_Stream_by_id(['13474692']); + + while( my $seq = $seqio->next_seq ) { print "seq is ", $seq->display_id, "\n"; my @f=$seq->get_all_SeqFeatures; #This gives you the annotation +of the retrieved sequence object
Nothing seems to be working past here.
foreach my $feat (@f) { my $ann=$feat->annotation; next unless ($ann->get_Annotations('coded_by')); my @coded=$ann->get_Annotations('coded_by'); foreach my $location (@coded) { print $location->value, " is the location that codes this pro +tein\n"; } } }
In reply to Bioperl + perl modules by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |