in reply to Perl Param
and display the result in a browser. Oops.$name = 'buy&trade©&paste" style="color:red'; print qq(<html><form>\n); print qq(<input name="oops" value="$name">$name\n); print qq(<br><input type="submit"></form></html>\n);
I gave one piece of code that solves this problem in a post from yesterday, Re: converting utf-8 to ISO-8859-1. If you don't have the UTF-8 problem, and I bet you don't, replace the first line in sub escape, the statement with pack, with a plain and simple
my $s = shift;
|
|---|