Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

How do I get parsed HTML from HTML::Normalize module?

my code as follows

use HTML::Normalize;
my $norm = HTML::Normalize->new ();
open(IN,"index.html"); 
$dirty = <IN>;
close(IN);
my $cleanHtml = $norm->cleanup (-html => $dirtyHtml);
open(OUT,">output.html") or die "Cannot open file\n";
print OUT $cleanHtml;
close(OUT);

[download]

I'm opening a html file and cleaning the html tags and again I need the HTML file after parsing

Replies are listed 'Best First'.
Re: how to get HTML file after parsing with HTML::Normalize
by GrandFather (Saint) on Mar 13, 2008 at 09:58 UTC

    I suspect your problem is the $dirty = <IN>; line which only reads a single line from the input file. There are many ways to fix that, but the technique I tend to use is:

    my $dirty = do {local $/; <IN>};

    [download]

    which resets the line end terminator ($/) so that the diamond operator (<>)reads the whole file in one hit.

    Perl is environmentally friendly - it saves trees
[reply]
[d/l]
[select]
Re: how to get HTML file after parsing with HTML::Normalize
by haoess (Curate) on Mar 13, 2008 at 10:06 UTC

    Ähm, you want the contents of the $cleanHtml variable? Or you want to know how to read the contents of a file?!

    Your code revised:

    use warnings;
use strict;
use HTML::Normalize;
my $norm = HTML::Normalize->new;
open(my $in, '<', 'index.html') or die "Could not read 'index.html': $
+!"; 
my $dirty = do { local $/; <$in> };
close $in or die "Could not close: $!";
my $cleanHtml = $norm->cleanup(-html => $dirty);
open(my $out, '>', 'output.html') or die "Could not open 'output.html'
+: $!";
print $out $cleanHtml;
close $out or die "Could not close: $!";

    [download]

    -- Frank

[reply]
[d/l]
[select]
      Thanks Frank
[reply]

Back to Seekers of Perl Wisdom