[Bioperl-l] Re: parsing BLAST html

[Jason Stajich]

I've never tried it - but given Sophia's last message perhaps it will
'just work' by doing the strip first.

-jason

On Tue, 12 Aug 2003, Aaron J Mackey wrote:

>
> We keep seeing this "bug" report - is there a simple way to make this
> "just work" using HTML::Strip?  I.e. a Bio::SearchIO::blasthtml that just
> looks like (missing various error checking, etc):
>
> package Bio::SearchIO::blasthtml;
>
> @ISA = qw(Bio::SearchIO::blast);
>
> sub _initialize {
>   my ($self, @args) = @_;
>   $self->{_hs} = new HTML::Strip;
>   return $self->SUPER::_initialize(@args);
> }
>
> sub _readline {
>   my $self = shift;
>   my $line = $self->SUPER::_readline(@_);
>   return $self->{_hs}->parse($line);
> }
>

--
Jason Stajich
Duke University
jason at cgt.mc.duke.edu