blob: 0fc5a6da026867740453af47fba271bd0804a10b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
#!/usr/bin/perl
# Challenge 2: "Create a script to parse URL and print the components of
# URL. According to the Wiki page https://en.wikipedia.org/wiki/URL, the URL
# syntax is as below:
#
# scheme:[//[userinfo@]host[:port]]path[?query][#fragment]
#
# eg. jdbc://user:password@localhost:3306/pwc?profile=true#h1
#
# scheme: jdbc
# userinfo: user:password
# host: localhost
# port: 3306
# path: /pwc
# query: profile=true
# fragment: h1
#
# My notes: sounds pretty trivial for regexes, if the lexical syntax of
# each component is defined clearly. Ok, reading the above wiki page
# doesn't make it 100% clear, but let's hack it up, that's probably good
# enough for most cases.
use strict;
use warnings;
use Function::Parameters;
use Data::Dumper;
#
# my %info = parse_url($url);
# Parse URL $url. Return a hash of the pieces. If parsing
# fails, return an empty hash.
# scheme:[//[userinfo@]host[:port]]path[?query][#fragment]
# eg. jdbc://user:password@localhost:3306/pwc?profile=true#h1
#
# parses to:
# scheme: jdbc
# userinfo: user:password
# host: localhost
# port: 3306
# path: /pwc
# query: profile=true
# fragment: h1
#
fun parse_url( $url )
{
$url =~ s/^([^:]+):// || return ();
my %hash;
$hash{scheme} = $1;
if( $url =~ s|^//|| )
{
$hash{userinfo} = $1 if $url =~ s|^(.+)@||;
return () unless $url =~ s|^([\w\.]+)||;
$hash{host} = $1;
$hash{port} = $1 if $url =~ s/^:(\d+)//;
$hash{fragment} = $1 if $url =~ s/#([^#]+)$//;
$hash{query} = $1 if $url =~ s/\?([^\?]+)$//;
$hash{path} = $url;
}
return %hash;
}
#die "Usage: ch-2.pl URL*\n";
push @ARGV, 'jdbc://user:password@localhost:3306/pwc?profile=true#h1'
unless @ARGV;
foreach my $url (@ARGV)
{
my %info = parse_url($url);
print "$url:\n". Dumper(\%info);
}
|
