Re: How do I use HTML::Stripper without lwp?

[bdy120602@xxxxxxxxx (Bdy)]

On Jul 24, 5:57 pm, rob.di...@xxxxxxx (Rob Dixon) wrote:
> bdy wrote:
>
> > My code is as follows:
>
> > use strict; use HTML::Stripper;    useLWP::Simple qw( get );      my
> > $stripper = HTML::Stripper->new(        skip_cdata => 1, strip_ws => 0  ); 
> >        my
> > $page_html = get(http://www.google.com/about.html); open(FILE,  ">
> > http___www.google.com.html");   print FILE $stripper->strip_html
> > ($page_html);      close(FILE);
>
> > Unfortunately, I'm not sure how I would run the stripperwithoutLWP.
> > What I would like to accomplish is running a file through
> > HTML::Stripper apart fromLWP.
>
> > Here's what I've produced so far:
>
> >   use strict;
> >   use HTML::Stripper;
>
> >   my $stripper = HTML::Stripper->new(
> >       skip_cdata => 1, strip_ws => 0
> >   );
>
> >   my $page_html = 'H:\test-r-get\google.html';
> >   open(FILE,  ">   google.txt");      print FILE $stripper->strip_html
> > ($page_html);      close(FILE);
>
> > Unfortunately, this produces a blank text file.
>
> useLWP::Simple;
> my $page_html = get('file://localhost/H:/test-r-get/google.html');
>
> ;D
>
> Rob- Hide quoted text -
>
> - Show quoted text -

Thanks; it works. Does the pod for LWP or HTML::Stripper contain
anything about scrubbing HTML from all HTML files in a file directory?
I couldn't find anything.

Thanks,