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 { ...@@ -632,12 +632,12 @@ sub PARSING {
if ( $distant==1 ){ if ( $distant==1 ){
my $version_d, my $database_d, my $poste_d; my $version_d, my $database_d, my $poste_d;
undef $/; undef $/;
if ( $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+(\S+)\s+Length=\s*(\d+)/smo );
}
elsif ( $intra_res[0] =~ /Query=\s+\S+\s+Length=\s*\d+/ ){
($query, $length_query) = ( $intra_res[0] =~ /Query=\s+(\S+)\s+Length=\s*(\d+)/smo ); ($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"; $/ = "\n";
open (F3, '<', 'web_tempo.result') or die; open (F3, '<', 'web_tempo.result') or die;
while ($_=<F3>){ 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