use Bio::Perl; use Bio::SearchIO; $filename='input/adk_.blast.0';
my $searchio=new Bio::SearchIO(-format=>'blast',-file=>$filename);
while(my $result=$searchio->next_result()){ my $topHit=$result->next_hit->name; my $numHits=$result->num_hits; print $result->query_name."\n"; print " Top result: $topHit\n"; print " Num hits: $numHits\n"; }
use Bio::Perl;
ReplyDeleteuse Bio::SearchIO;
$filename='input/adk_.blast.0';
my $searchio=new Bio::SearchIO(-format=>'blast',-file=>$filename);
while(my $result=$searchio->next_result()){
my $topHit=$result->next_hit->name;
my $numHits=$result->num_hits;
print $result->query_name."\n";
print " Top result: $topHit\n";
print " Num hits: $numHits\n";
}