#!/bin/perl -w
use warnings;
use Bio::Seq;
use Bio::Tools::Run::StandAloneBlast;
 
$blast_obj = Bio::Tools::Run::StandAloneBlast->new(-program  => 'blastn', -database => 'Anopheles-gambiae-PEST_TRANSCRIPTS_AgamP3.7.fa');
 
$seq_obj = Bio::Seq->new(-id  =>"AGAP007280_query", -seq =>"TCTCGAGATGGCGAACCTGCTGCAGGGGTTCAGCGAGATGGGTCCAGCCAAAGAGAAGACGACGCCACAGTATGAGG");
 
$report_obj = $blast_obj->blastall($seq_obj);
 
$result_obj = $report_obj->next_result;
 
print $result_obj->num_hits;

##</code><code>##

Replacement list is longer than search list at C:/Dwimperl/perl/site/lib/Bio/Ran
ge.pm line 251.
Use of uninitialized value $_[0] in string eq at C:/Dwimperl/perl/lib/File/Spec/
Win32.pm line 152.

--------------------- WARNING ---------------------
MSG: cannot find path to blastall
---------------------------------------------------
Can't call method "next_result" on an undefined value at bioperl_blast2.pl line
12.