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

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

Comment on Re^4: read a file and insert closing tags if not present Download Code

In Section Seekers of Perl Wisdom