samcv/urlfind.p6

## urlfind.p6
#!/usr/bin/env perl6
grammar http {
    regex TOP { .* <url> .* }
    regex url { <protocol> <protocoldel> <body>? (<after>+)? }
    token protocol { (http)|(https)|(ftp)|(git)|(ssh) }
    token protocoldel { '://' }
    token body { <units>+ }
    token units { <:Letter>|'.' }
    token after { <seperator> (<allowed>+)? }
    token seperator { '/' }
    token allowed { <[a..z A..Z % & . = ? ]> }
}
sub MAIN ( Str $string ) {
    my $match =  http.parse($string);
    say $match.gist;
}
	#!/usr/bin/env perl6
	grammar http {
	regex TOP { .* <url> .* }
	regex url { <protocol> <protocoldel> <body>? (<after>+)? }
	token protocol { (http)\|(https)\|(ftp)\|(git)\|(ssh) }
	token protocoldel { '://' }
	token body { <units>+ }
	token units { <:Letter>\|'.' }
	token after { <seperator> (<allowed>+)? }
	token seperator { '/' }
	token allowed { <[a..z A..Z % & . = ? ]> }
	}
	sub MAIN ( Str $string ) {
	my $match = http.parse($string);
	say $match.gist;
	}