Commit 1e1228ef authored by Sebastien Moretti's avatar Sebastien Moretti
Browse files

Fix for new NCBI raw/Text format (they moved back!)

parent 69d48150
......@@ -632,12 +632,12 @@ sub PARSING {
if ( $distant==1 ){
my $version_d, my $database_d, my $poste_d;
undef $/;
if ( $intra_res[0] =~ /Query=\s+\S+.*?\s+Length=\s*\d+/ ){
($query, $length_query) = ( $intra_res[0] =~ /Query=\s+\S+\s+(\S+)\s+Length=\s*(\d+)/smo );
}
elsif ( $intra_res[0] =~ /Query=\s+\S+\s+Length=\s*\d+/ ){
if ( $intra_res[0] =~ /Query=\s+\S+\s+Length=\s*\d+/ ){
($query, $length_query) = ( $intra_res[0] =~ /Query=\s+(\S+)\s+Length=\s*(\d+)/smo );
}
elsif ( $intra_res[0] =~ /Query=\s+\S+\s+\S+\s+Length=\s*\d+/ ){
($query, $length_query) = ( $intra_res[0] =~ /Query=\s+\S+\s+(\S+)\s+Length=\s*(\d+)/smo );
}
$/ = "\n";
open (F3, '<', 'web_tempo.result') or die;
while ($_=<F3>){
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment