1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| while ( my $hit_bis = $result->next_hit ) {
next unless ( $v > 0);
while( my $hsp = $hit_bis->next_hsp ) {
#---------------------------------------
# voir Bio::Search::HSP::GenericHSP
#---------------------------------------
# Returns a SeqFeature representing the query in the HSP
# Bio::SeqFeature::Similarity
my $query = $hsp->query;
# Returns a SeqFeature representing the hit in the HSP
# Bio::SeqFeature::Similarity
my $hit = $hsp->hit;
my $query_start = $query->location->{'_start'};
my $query_end = $query->location->{'_end'};
my $query_length = $query_end - $query_start + 1;
my $query_cover = ($query_length/$query_tot_length) * 100;
my $percentid = $hsp->percent_identity();
}
} |