URL encoding: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) →{{header|Perl 6}}: Add Perl 6 solution |
|||
| Line 72: | Line 72: | ||
say $s = CGI::escape($s); |
say $s = CGI::escape($s); |
||
say $s = CGI::unescape($s);</lang> |
say $s = CGI::unescape($s);</lang> |
||
=={{header|Perl 6}}== |
|||
<lang perl6>my $url = 'http://foo bar/'; |
|||
say $url.subst(/(<-[A..Za..z0..9]>)/, -> $/ { sprintf "%%%0X", $0.ord }, :g);</lang> |
|||
Output: |
|||
<pre> |
|||
http%3A%2F%2Ffoo%20bar%2F |
|||
</pre> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |
||