Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

cwest (1514)

  (email not shown publicly)
AOL IM: caseyrwest (Add Buddy, Send Message)

Perl geek.

Journal of cwest (1514)

Monday September 29, 2003
01:21 PM


[ #14966 ]

Here is a handy utility to be coupled with the text2html utility distributed with HTML::FromText.

use HTML::TreeBuilder;
use HTML::PrettyPrinter;

my $html = HTML::TreeBuilder->new_from_content(do{local $/;<>})->guts;
my %opts = map {$_, 1} qw[quote_attr allow_forced_nl];

print @{ HTML::PrettyPrinter->new(%opts)->format($html) };

Posted from, comment here.

New comment creation has been disabled on this discussion.
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login
Loading... please wait.