"Escape" in perl

[Dr.Ruud]

(e-mail address removed) schreef:

'%'.uc sprintf("%x", ord($1))

After some cleaning it would look more like this:

sprintf "%%%X", ord $1

 

[sln]

(e-mail address removed) schreef:



After some cleaning it would look more like this:

sprintf "%%%X", ord $1

s/($htmlchrs)/sprintf "%%%02X", ord $1/ge;

incase escaping 0-15: s/%(..)/pack("c",hex($1))/ge;