Re^4: read a file and insert closing tags if not present


Think about Loose Coupling
	PerlMonks

Re^4: read a file and insert closing tags if not present

by valavanp (Curate)

on Mar 29, 2007 at 09:45 UTC ( [id://607189]=note: print w/replies, xml )

Need Help??

in reply to Re^3: read a file and insert closing tags if not present
in thread read a file and insert closing tags if not present

Hi grandfather, Your solution is fine. But when i give like this extra tags have been inserted. how can i avoid this.

use strict;
use warnings;
use HTML::TreeBuilder;

my $sgml = <<SGML;
<html>
<greeting class="simple">Hello, world!<head>heading</head>
</html>
SGML

my $root = HTML::TreeBuilder->new ();
$root->ignore_unknown (0);
$root->parse ($sgml);

print $root->guts (0)->as_XML ();
[download]

Thanks for your suggestion