10 lines
250 B
Raku
10 lines
250 B
Raku
|
my $url = "http%3A%2F%2Ffoo%20bar%2F";
|
||
|
|
|
||
|
|
say $url.subst: :g,
|
||
|
|
/'%'(<:hexdigit>**2)/,
|
||
|
|
-> ($ord ) { chr(:16(~$ord)) }
|
||
|
|
|
||
|
|
# Alternately, you can use an in-place substitution:
|
||
|
|
$url ~~ s:g[ '%' (<:hexdigit> ** 2) ] = chr :16(~$0);
|
||
|
|
say $url;
|