bdy wrote:
>
> My code is as follows:
>
> use strict; use HTML::Stripper; use LWP::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 stripper without LWP.
> What I would like to accomplish is running a file through
> HTML::Stripper apart from LWP.
>
> 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.
use LWP::Simple;
my $page_html = get('file://localhost/H:/test-r-get/google.html');
;D
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
