URL decoding: Difference between revisions

Content added Content deleted
(added Red version)
Line 1,213: Line 1,213:
$url ~~ s:g[ '%' (<:hexdigit> ** 2) ] = chr :16(~$0);
$url ~~ s:g[ '%' (<:hexdigit> ** 2) ] = chr :16(~$0);
say $url;</lang>
say $url;</lang>

=={{header|Red}}==

<lang rebol>>> dehex "http%3A%2F%2Ffoo%20bar%2F"
== "http://foo bar/"
>> dehex "google.com/search?q=%60Abdu%27l-Bah%C3%A1"
== "google.com/search?q=`Abdu'l-Bahá"</lang>


=={{header|Retro}}==
=={{header|Retro}}==