Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: How to get HTML::Parser to return a line of parsed text

by davorg (Chancellor)
on Feb 06, 2001 at 20:22 UTC ( #56686=note: print w/replies, xml ) Need Help??

in reply to How to get HTML::Parser to return a line of parsed text

It goes something like this:

#!/usr/bin/perl -w use strict; use HTML::Parser; my $text; my $p = HTML::Parser->new(text_h => [ sub {$text .= shift}, 'dtext']); $p->parse_file('test.html'); print $text;

which, when used on a file like this:

<html> <head> <title>Test</title> </head> <body> <h1>Test Stuff</h1> <p>This is a test</p> <ul> <li>this</li> <li>is a</li> <li>list</li> </ul> </body> </html>

produces the following output:

Test Test Stuff This is a test this is a list

Does that help?

Update: But merlyn's solution is way cooler.


"Perl makes the fun jobs fun
and the boring jobs bearable" - me

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://56686]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2017-10-23 06:06 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (277 votes). Check out past polls.