URL parser

Uses the URI library which implements a Raku grammar based on the RFC 3986 BNF grammar.

use URI;
use URI::Escape;

my @test-uris = <
    foo://example.com:8042/over/there?name=ferret#nose
    urn:example:animal:ferret:nose
    jdbc:mysql://test_user:ouupppssss@localhost:3306/sakila?profileSQL=true
    ftp://ftp.is.co.za/rfc/rfc1808.txt
    http://www.ietf.org/rfc/rfc2396.txt#header1
    ldap://[2001:db8::7]/c=GB?objectClass?one
    mailto:[e-mail]
    news:comp.infosystems.www.servers.unix
    tel:[phone]
    telnet://192.0.2.16:80/
    urn:oasis:names:specification:docbook:dtd:xml:4.1.2
    ssh://[e-mail]
    https://bob:[e-mail]/place
    http://example.com/?a=1&b=2+2&c=3&c=4&d=%65%6e%63%6F%64%65%64
>;

my $u = URI.new;

for @test-uris -> $uri {
    say "URI:\t", $uri;
        $u.parse($uri);
        for <scheme host port path query frag> -> $t {
           my $token = try {$u."$t"()} || '';
           say "$t:\t", uri-unescape $token.Str if $token;
        }
    say '';
}

Output:

URI:    foo://example.com:8042/over/there?name=ferret#nose
scheme: foo
host:   example.com
port:   8042
path:   /over/there
query:  name=ferret
frag:   nose

URI:    urn:example:animal:ferret:nose
scheme: urn
path:   example:animal:ferret:nose

URI:    jdbc:mysql://test_user:ouupppssss@localhost:3306/sakila?profileSQL=true
scheme: jdbc
path:   mysql://test_user:ouupppssss@localhost:3306/sakila
query:  profileSQL=true

URI:    ftp://ftp.is.co.za/rfc/rfc1808.txt
scheme: ftp
host:   ftp.is.co.za
port:   21
path:   /rfc/rfc1808.txt

URI:    http://www.ietf.org/rfc/rfc2396.txt#header1
scheme: http
host:   www.ietf.org
port:   80
path:   /rfc/rfc2396.txt
frag:   header1

URI:    ldap://[2001:db8::7]/c=GB?objectClass?one
scheme: ldap
host:   [2001:db8::7]
port:   389
path:   /c=GB
query:  objectClass?one

URI:    mailto:[e-mail]
scheme: mailto
path:   [e-mail]

URI:    news:comp.infosystems.www.servers.unix
scheme: news
port:   119
path:   comp.infosystems.www.servers.unix

URI:    tel:[phone]
scheme: tel
path:    1-816-555-1212

URI:    telnet://192.0.2.16:80/
scheme: telnet
host:   192.0.2.16
port:   80
path:   /

URI:    urn:oasis:names:specification:docbook:dtd:xml:4.1.2
scheme: urn
path:   oasis:names:specification:docbook:dtd:xml:4.1.2

URI:    ssh://[e-mail]
scheme: ssh
host:   example.com
port:   22
path:   

URI:    https://bob:[e-mail]/place
scheme: https
host:   example.com
port:   443
path:   /place

URI:    http://example.com/?a=1&b=2+2&c=3&c=4&d=%65%6e%63%6F%64%65%64
scheme: http
host:   example.com
port:   80
path:   /
query:  a=1&b=2 2&c=3&c=4&d=encoded