Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2016-10-22 22:40 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (299 votes). Check out past polls.