[Bioperl-l] BinarySearch.pm

[Peter Rice]

In trying to use bioflat_index.pl index files in EMBOSS, I ran into some 
problems.

Both appear to be in the Bio/Flat/BinarySearch.pm source file.

EMBL ID lines are failing to drop the ';' from the ID. Updating the 
regular expression to make sure the ';' is not picked up seems to work:

   if ($format =~ /embl/i) {
     return ('ID',
	    "^ID   (\\S+[^; ])",
	    "^ID   (\\S+[^; ])",
	    {
	     ACC     => q/^AC   (\S+);/,
	     VERSION => q/^SV\s+(\S+)/
	    });
   }

The ACC secondary index has every record duplicated.
This line is duplicated in the write_secondary_indices source code. Is 
that intentional?

  		    print $fh sprintf("%-${length}s",$record);

regards,

Peter Rice
EMBOSS Team