Difference between revisions of "Urldecode.pl"

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