[Bioperl-l] Remote Blast and Report

[Ocar Campos]

Hello Jason, I printed the ref($ref), this is what i got:
Bio::SearchIO::blast

I'm going to update from version 1.4.2 of bioperl to 1.6.0, maybe that's why
is not working.

O'car

2009/3/1 Jason Stajich <jason at bioperl.org>

> I think $rc is already a Bio::SearchIO object - you shouldn't have to
> instantiate a Bio::SearchIO object that is what the -readmethod in the
> @params at the top is for.
>
> Try printing ref($ref) to see what it is.
>
> -js
>
> On Mar 1, 2009, at 4:51 PM, Ocar Campos wrote:
>
>  Hello, I tried your script Russel, but I still got the same error in the
>> console, "Can't call method "query_name" on an undefined value at
>> ./aer2.pl
>> line 39, <GEN4> line 185.", I didn't do anything to it, just copy/paste
>> and
>> ran it. So what I assumed is that the object for the SearchIO module was
>> not
>> initialized, so I created it, but now I get an Exeption while parsing the
>> report:
>>
>>
>> ------------- EXCEPTION  -------------
>> MSG: Could not open Bio::SearchIO::blast=HASH(0x8bb79bc): Doesn't exist
>> the
>> file or directory.
>> STACK Bio::Root::IO::_initialize_io
>> /usr/lib/perl5/site_perl/5.8.8/Bio/Root/IO.pm:273
>> STACK Bio::Root::IO::new /usr/lib/perl5/site_perl/5.8.8/Bio/Root/IO.pm:213
>> STACK Bio::SearchIO::new
>> /usr/lib/perl5/site_perl/5.8.8/Bio/SearchIO.pm:135
>> STACK Bio::SearchIO::new
>> /usr/lib/perl5/site_perl/5.8.8/Bio/SearchIO.pm:167
>> STACK toplevel ./aer2.pl:45
>>
>> --------------------------------------
>>
>> aer2.pl is my script, Any Idea what it could be?
>>
>> The script:
>>
>> #!/usr/bin/perl
>>
>> use Bio::Tools::Run::RemoteBlast;
>> use Bio::SearchIO;
>> use Data::Dumper;
>>
>> ########HERE I SET THE PARAMETERS
>> $prog = "tblastx";
>> $db = "nr";
>> $e_val = "1e-10";
>>
>> my @params = ( '-prog' => $prog,
>>       '-data' => $db,
>>       '-expect' => $e_val,
>>       '-readmethod' => 'SearchIO' );
>>
>> my $remoteBlast = Bio::Tools::Run::RemoteBlast->new(@params);
>>
>>
>> ########SELECT FILE AND RUN THE BLAST.
>> $infile = 'secuencia.fasta';
>> $r = $remoteBlast->submit_blast($infile);
>>
>> my $v = 1;
>>
>>  print STDERR "waiting...\n" if( $v > 0 );  ########  WAIT FOR THE RESULTS
>> TO RETURN!!!!!
>>  while ( my @rids = $remoteBlast->each_rid )
>>  {
>>    foreach my $rid ( @rids )
>>    {
>>      my $rc = $remoteBlast->retrieve_blast($rid);  ###I RETRIEVE THE
>> REPORT.
>>      print $rc, "\n";                  ########ONLY FOR CHECKING
>>      if( !ref($rc) )
>>      {
>>        if( $rc < 0 )
>>        {
>>          $remoteBlast->remove_rid($rid);
>>        }
>>        print STDERR "." if ( $v > 0 );
>>        sleep 5;
>>      }
>>      else
>>      {
>>       ##########HERE I CREATE THE SEARCHIO OBJECT FOR WORKING WITH THE
>> REPORT
>>       $report = new Bio::SearchIO (-format => 'blast',
>>                                    -file   => $rc      #########$rc SHOULD
>> CONTAIN THE REPORT
>>                     );
>>       my $result = $report->next_result();
>>       #########SAVE THE OUTPUT
>>       my $filename = $result->query_name()."\.out";
>>       $remoteBlast->save_output($filename);
>>       $remoteBlast->remove_rid($rid);
>>       print "\nQuery Name: ", $result->query_name(), "\n";
>>       while ( my $hit = $result->next_hit )
>>       {
>>         next unless ( $v > 0);
>>         print "\thit name is ", $hit->name, "\n";
>>         while( my $hsp = $hit->next_hsp )
>>         {
>>           print "\t\tscore is ", $hsp->score, "\n";
>>         }
>>       }
>>      }
>>     }
>>   }
>>
>>
>> Thanks in advance.
>> Cheers.
>> O'car.
>> _______________________________________________
>> Bioperl-l mailing list
>> Bioperl-l at lists.open-bio.org
>> http://lists.open-bio.org/mailman/listinfo/bioperl-l
>>
>
> Jason Stajich
> jason at bioperl.org
>
>
>
>


-- 
O'car Campos C.
Bioinformatics Engineering Student.
Universidad de Talca.