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

in reply to read a file and insert closing tags if not present

Hi Valavan,

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

while ($sgml=~s#(<)([^/<>\s]+)((?:\s[^/<>]+)?>)([^<>]+)(<[^/<>]+>)#$1$
+2$3$4$1\/$2>$5#){}
print "\n\n";
print "\nOutput:\n$sgml\n";
print "\n\n";
[download]

Input:

<html>
<greeting class="simple">Hello, world!<head>heading</head>
</html>
[download]

Output:

<html>
<greeting class="simple">Hello, world!</greeting><head>heading</head>
</html>
[download]

~ ~ ~ ~ ~

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

In Section Seekers of Perl Wisdom