Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

HTML tidy, using XML::LibXML

by merlyn (Sage)
on Jan 04, 2003 at 16:38 UTC ( [id://224272]=CUFP: print w/replies, xml ) Need Help??

Turn messy HTML into standards-compliant HTML with all close tags properly noted. Takes STDIN, or a list of files, and result goes on STDOUT.
#!/usr/bin/perl
use XML::LibXML;
print XML::LibXML->new->parse_html_string(join "", <>)->toStringHTML;

[download]

Replies are listed 'Best First'.
Re: HTML tidy, using XML::LibXML
by Matts (Deacon) on Jan 04, 2003 at 17:10 UTC
    If you've got sloppy HTML that needs tidying up and XML::LibXML barfs on it, you can change that one-liner to the following three-liner: 
    my $parser = XML::LibXML->new();
$parser->recover(1); # Set recovery on error flag
$parser->parse_html_string(join "", <>)->toStringHTML;

    [download]
    XML::LibXML can also parse SGML. Most people don't know that (probably sucky docs ;-)
[reply]
[d/l]

      Don't know if it's accurate but the docs say that won't work-

      This switch (recover) will only work with XML data rather than HTML data.

      (Update, July 2010: this does work and has for at least a few years -- don't know if it was always the case; I should have tested back when I initially responded.)

[reply]

Back to Cool Uses for Perl

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: CUFP [id://224272]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2024-04-20 02:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found