Difference between revisions of "Urldecode.pl"

From Organic Design wiki
m
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
 +
<source lang="perl">
 
# Decode an URL-encoded string
 
# Decode an URL-encoded string
$str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
+
$str =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;</perl>
 +
</source>
 
[[Category:PERL]]
 
[[Category:PERL]]

Latest revision as of 03:07, 23 April 2020

# Decode an URL-encoded string
$str =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;</perl>