how to get HTML file after parsing with HTML::Normalize

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

Comment on how to get HTML file after parsing with HTML::Normalize Download Code

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]
Re^2: how to get HTML file after parsing with HTML::Normalize by Anonymous Monk on Mar 14, 2008 at 07:07 UTC
Thanks Frank	[reply]


Perl Monk, Perl Meditation
	PerlMonks