Beefy Boxes and Bandwidth Generously Provided by pair Networks BBQ
Think about Loose Coupling
 
PerlMonks  

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;

[download]

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>

[download]

produces the following output:



Test


Test Stuff
This is a test

this
is a
list




[download]

Does that help?

Update: But merlyn's solution is way cooler.

--
<http://www.dave.org.uk>

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


Comment on Re: How to get HTML::Parser to return a line of parsed text
Select or Download Code

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://56686]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2013-05-25 21:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best material for plates (tableware) is:









    Results (521 votes), past polls