I have try to use the get_SeqFeatures with the following code, however the output looks like there are some errors, not sure how to fix that, any help? Thanks.
#!/usr/bin/perl
use Bio::Perl;
use Bio::SeqIO;
#use Bio::Graphics;
use Bio::SeqFeature::Generic;
my $seqio = Bio::SeqIO->new(-fh => \*STDIN, -format => 'genbank');
while (my $seq = $seqio->next_seq()) {
# $seq is-a Bio::FeatureHolderI, hence:
my @feas = $seq->get_SeqFeatures();
# each element is-a Bio::SeqFeatureI
foreach my $fea (@feas) {
# do something with the feature objects
print "$fea\n";
}
output
Bio::SeqFeature::Generic=HASH(0x9f1d1c)
Bio::SeqFeature::Generic=HASH(0x9f03dc)
Bio::SeqFeature::Generic=HASH(0x9f0460)
Bio::SeqFeature::Generic=HASH(0x9f25e0)
Bio::SeqFeature::Generic=HASH(0x9f583c)
Bio::SeqFeature::Generic=HASH(0x9f2790)
Bio::SeqFeature::Generic=HASH(0x9f24d8)
Bio::SeqFeature::Generic=HASH(0x9f6334)
Bio::SeqFeature::Generic=HASH(0x9f6610)
Bio::SeqFeature::Generic=HASH(0x9f5cd4)
#!/usr/bin/perl
use Bio::Perl;
use Bio::SeqIO;
#use Bio::Graphics;
use Bio::SeqFeature::Generic;
my $seqio = Bio::SeqIO->new(-fh => \*STDIN, -format => 'genbank');
while (my $seq = $seqio->next_seq()) {
# $seq is-a Bio::FeatureHolderI, hence:
my @feas = $seq->get_SeqFeatures();
# each element is-a Bio::SeqFeatureI
foreach my $fea (@feas) {
# do something with the feature objects
print "$fea\n";
}
output
Bio::SeqFeature::Generic=HASH(0x9f1d1c)
Bio::SeqFeature::Generic=HASH(0x9f03dc)
Bio::SeqFeature::Generic=HASH(0x9f0460)
Bio::SeqFeature::Generic=HASH(0x9f25e0)
Bio::SeqFeature::Generic=HASH(0x9f583c)
Bio::SeqFeature::Generic=HASH(0x9f2790)
Bio::SeqFeature::Generic=HASH(0x9f24d8)
Bio::SeqFeature::Generic=HASH(0x9f6334)
Bio::SeqFeature::Generic=HASH(0x9f6610)
Bio::SeqFeature::Generic=HASH(0x9f5cd4)
Comment