Simple link parser, for fun

makelink.p6

my token wikilink {
    "[[" ~ "]]" [
        <(
            [ <!before "]]"> . ]+
        )>
    ]
};

sub percent-char($str) {
    [~] $str.encode('utf-8').list.map: {"%" ~ $_.fmt("%02X")};
}

say "[[abcde]] and [[f ghi j]] are on the [[APPLE ][]]" ~~ /<wikilink> +% .+?/;

say "Unencoded:";

for @<wikilink> -> $NAME {
    say "http://tcrf.net/" ~ $NAME.subst(/\s+/, '_', :g);
}

say "Encoded:";

for @<wikilink> -> $NAME {
    my $page = $NAME.subst(/\s+/, '_', :g);
    $page.=subst(/<-[A..Za..z0..9\-_.~]>/, {percent-char(~$_)}, :g);
    say "http://tcrf.net/$page";
}

output

$ perl6 wltest.p6
｢[[abcde]] and [[f ghi j]] are on the [[APPLE ][]]｣
 wikilink => ｢abcde｣
 wikilink => ｢f ghi j｣
 wikilink => ｢APPLE ][｣

Unencoded:
http://tcrf.net/abcde
http://tcrf.net/f_ghi_j
http://tcrf.net/APPLE_][
Encoded:
http://tcrf.net/abcde
http://tcrf.net/f_ghi_j
http://tcrf.net/APPLE_%5D%5B