http://qs1969.pair.com?node_id=422920


in reply to Re^2: HTML::Tidy and mysterious HTML::Tidy::Document
in thread HTML::Tidy and mysterious HTML::Tidy::Document

Someone needs to ping petdance (with a patch?). The documentation lies. Here's working code:

#!/usr/bin/perl
use strict;
use warnings;

use HTML::Tidy;

my $fname = join ' ', @ARGV;

my $html = do { local $/; <> }; # slurp file(s) from commandline

my $tidy = HTML::Tidy->new();

$tidy->parse( $fname, $html );

warn $_->as_string, "\n" for $tidy->messages;

print $tidy->clean( $html );

[download]

Makeshifts last the longest.

Replies are listed 'Best First'.
Re^4: HTML::Tidy and mysterious HTML::Tidy::Document
by Cody Pendant (Prior) on Jan 18, 2005 at 10:13 UTC
    Thank you. I thought I was going crazy for a while there.

    For the record, just in case it hasn't been made clear, doing 

      $tidy->clean( $html );

    [download]
    Leaves $html untouched.

    Next question, how does one pass command-line options to tidy via the module? Or should I quit while I'm ahead?


    ($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
    =~y~b-v~a-z~s; print
[reply]
[d/l]

      Looks like you can't. I skimmed the TidyLib docs for the functions that configure its behaviour, but I don't see any calls to those in the HTML::Tidy sources. That really is a bummer. I was hoping to use the module to write a sane replacement for the annoying standalone tidy binary. It would also have been nice to be able to integrate TidyLib directly into a Perl-enabled Vim.

      Makeshifts last the longest.

[reply]
[reply]

In Section Seekers of Perl Wisdom