URL decoding: Difference between revisions
m
→{{header|Perl 6}}: Combine blocks to make runnable code for ease of automated testing
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Combine blocks to make runnable code for ease of automated testing) |
|||
Line 932:
say $url.subst: :g,
/'%'(<:hexdigit>**2)/,
-> ($ord ) { chr(:16(~$ord)) }
# Alternately, you can use an in-place substitution:
say $url;</lang>
|