Makeshifts last the longest.

I guess CPAN is a start.

Yea right now I just have a whole list of filters


@HTMLUN2 = map { s/</&lt/; $_ } @HTMLUN1;
@HTML = map { s/>/&gt/; $_ } @HTMLUN2;

print <<HTML;
<textarea>@{[join("",@HTML)]}</textarea>
HTML
[download]


I am looking for the command that does all the stuff for me, so i don't need to map { everything.

Update: I'm a klutz.. don't forget to see asarih's reply below.

FWIW, you need to add s/&/&/g; to your substitutions for a minimal escaping solution.

Also, you must terminate your entities with a semicolon - it's < and not &lt. (Well, the latter is acceptable in some cases under SGML, but don't go there unless you like headaches.)

A few style suggestions on your code - try something like this:

s/</&lt;/ for @HTML;
s/>/&gt;/ for @HTML;
s/&/&amp;/ for @HTML;

print '<textarea>', join("", @HTML), '</textarea>';
[download]

Much easier on the eyes, no? Anyway, as I've already said:

use CGI qw(:standard);
print textarea('', escapeHTML(join '', @HTML));
[download]

Makeshifts last the longest.

open (PAGE, "$file");
@HTML = <PAGE>;
close (PAGE);

print <<PART1;
<textarea style="{border: solid 1 #000033; width: 900; height: 550;}" 
+name="text">
PART1

use CGI qw(:standard);
print escapeHTML(join '', @HTML);

print <<PART2;
</textarea>
PART2
[download]

Well, FWIW, you shouldn't be importing a million functions using :standard if you're only using one of them. Are you using CGI.pm anyway to parse parameters?

Makeshifts last the longest.

You really should look into Templating Solutions. Here are two for your amusement:
1. Template:
   Read more... (1043 Bytes)
2. HTML::Template:
   Read more... (1101 Bytes)
Feel free to ask questions about these modules, they are designed to make your life easier - but you don't appreciate that up front. ;)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)