Skip to content
Permalink
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (13 sloc) 341 Bytes
use strict;
use warnings;
##
# Write a script for URL normalization based on rfc3986.
##
use UrlParser;
use constant URL => q|JDBC://user:password@localhost:3306/pwc?profile=true#h1|;
MAIN:{
my $parser = new UrlParser();
$parser->parse(URL);
}
__DATA__
use constant URL => "HTTP://www.example.com:80/a%C2%B1b/%7Eusername";
You can’t perform that action at this time.