I am trying to run a bioperl program but it is giving some strange errors.My program code is as follows:
Expand|Select|Wrap|Line Numbers
- use Bio::SeqIO;
- use Bio::Tools::Run::StandAloneBlast;
- use Bio::DB::SwissProt;
- my $database = new Bio::DB::SwissProt;
- my $query = $database->get_Seq_by_id('TAUD_ECOLI');
- my $factory = Bio::Tools::Run::StandAloneBlast->new(
- 'program' => 'blastp',
- 'database' => 'swissprot',
- _READMETHOD => "Blast"
- );
- my $blast_report = $factory->blastall($query);
- my $result = $blast_report->next_result;
- while( my $hit = $result->next_hit()) {
- print "\thit name: ", $hit->name(),
- " significance: ", $hit->significance(), "\n";
- }
-------------- WARNING ---------------------
MSG: cannot find path to blastall
---------------------------------------------------
Can't call method "next_result" on an undefined value at
C:\Perl\bin\biotool.pl line 13.
Any help will be appreciated !!