egdb3_14_1
.url_verify
Tables
(current)
Columns
Constraints
Relationships
Orphan Tables
Anomalies
Routines
parse_url(url_in text)
Parameters
Name
Type
Mode
url_in
text
IN
Definition
use Rose::URI; my $url_in = shift; my $url = Rose::URI->new($url_in); my %parts = map { $_ => $url->$_ } qw/scheme username password host port path query fragment/; $parts{full_url} = $url_in; ($parts{domain} = $parts{host}) =~ s/^[^.]+\.//; ($parts{tld} = $parts{domain}) =~ s/(?:[^.]+\.)+//; ($parts{page} = $parts{path}) =~ s#(?:[^/]*/)+##; return \%parts;