[Bioperl-l] Re: [Bioperl-guts-l] Notification: incoming/974

[Saurabh D. Patel]

your perl one liner prints cool on my system too.  I looked a little in
HSP.pm under the BPlite directory and noticed the lines:

	my ($p)        = $scoreline =~ /[Sum ]*P[\(\d+\)]* = (\S+)/;
	if (not defined $p) {($p) = $scoreline =~ /Expect = (\S+)/}

compare with HSP.pm under the Blast directory:

	$p      = "1$p"      if defined $p and $p=~ /^e/i;

I think adding this line would catch this case.

Saurabh.

Hilmar Lapp wrote:

> Have you checked what $hsp->P() really returns?
> 
>         perl -e '$x = "e-108"; if($x < 0.01) { print "cool\n"; } else {
> print "uncool\n"; }'
> 
> prints "cool" on my system (perl 5.005003). I think this is a
> known parsing bug, but I'm not sure.
> 
>         Hilmar
> --
> -----------------------------------------------------------------
> Hilmar Lapp                              email: hilmarl@yahoo.com
> GNF, San Diego, Ca. 92122                phone: +1 858 812 1757
> -----------------------------------------------------------------