Re: how to force HTML to display as text

in reply to how to force HTML to display as text

TAAFWWTDI - There's always a far worse way to do it...

#!/usr/bin/perl -wT

use strict;

print "Content-type: text/html\n\n";
print <<HEADER;

<html>
<head>
<title>My HTML</title>
</head>
<body>
<p>Here's the HTML:</p>

<textarea cols="50" rows="20">

HEADER

open HTML, "<data.html" or die "Can't open data.html: $!";

while (<HTML>) {
    print $_;
}

close HTML;

print <<FOOTER;

</textarea>
</body>
</html>

FOOTER
[download]

That works in some browsers, doesn't work in others.

p.s. Make sure to follow grep's suggestion about code tags ;-)

Comment on Re: how to force HTML to display as text Download Code

In Section Seekers of Perl Wisdom