Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (18 sloc) 683 Bytes
use strict;
use Bio::SeqIO;
my $format = shift;
die "No format specified" unless $format;
my $seqin = Bio::SeqIO->new(-fh => \*STDIN,
-format => $format);
while(my $seqObj = $seqin-> next_seq){
for my $featObj ($seqObj->get_SeqFeatures) {
print "primary tag: ", $featObj->primary_tag, "\n";
for my $tag ($featObj->get_all_tags) {
print " tag: ", $tag, "\n";
for my $value
($featObj->get_tag_values($tag)) {
print " value: ", $value, "\n";
}
}
}
}
Jump to Line
Something went wrong with that request. Please try again.