2 Mar 00:06
Re: Remote Blast and Report
Smithies, Russell <Russell.Smithies <at> agresearch.co.nz>
2009-03-01 23:06:22 GMT
2009-03-01 23:06:22 GMT
Works fine for me using the code below.
Took about 30 seconds to return a result.
==============================================
#!perl -w
use Bio::Tools::Run::RemoteBlast;
use Bio::SearchIO;
use Data::Dumper;
#Here i set the parameters for blast
$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 the file and make the balst.
$infile = 'infile.fasta';
$r = $remoteBlast->submit_blast($infile);
my $v = 1;
print STDERR "waiting..." if( $v > 0 ); ######## WAIT FOR THE RESULTS TO RETURN!!!!!
while ( my @rids = $remoteBlast->each_rid ) {
(Continue reading)
RSS Feed