Merge pull request #403 from oWnOIzRi/week017

add task 2 sol

1 files changed, 35 insertions, 0 deletions

diff --git a/challenge-017/steven-wilson/perl5/ch-2.pl b/challenge-017/steven-wilson/perl5/ch-2.pl
new file mode 100644
index 0000000000..27167654ce
--- /dev/null
+++ b/challenge-017/steven-wilson/perl5/ch-2.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/env perl
+# Create a script to parse URL and print the components of URL.
+# https://en.wikipedia.org/wiki/URL
+# According to Wiki page, the URL syntax is as below:
+# scheme:[//[userinfo@]host[:port]]path[?query][#fragment]
+# For example: jdbc:mysql://user:password@localhost:3306/pwc?profile=true#h1
+#   scheme:   jdbc:mysql
+#   userinfo: user:password
+#   host:     localhost
+#   port:     3306
+#   path:     /pwc
+#   query:    profile=true
+#   fragment: h1
+#
+# usage: $ perl ch-2.pl "jdbc:mysql://user:password@localhost:3306/pwc?profile=true#h1"
+
+use strict;
+use warnings;
+use feature qw/ say /;
+
+# I tried to write something which would work with optional components but it
+# is beyond me at the moment.  This is my first attempt which works with a
+# url containing all the components i.e. the example.
+
+my $url = $ARGV[0];
+
+$url =~ /^(.+):\/\/(.+)@(.+):(\d+)(\/.+)[?](.+)#(.+)/;
+
+say "scheme:    $1";
+say "userinfo:  $2";
+say "host:      $3";
+say "port:      $4";
+say "path:      $5";
+say "query:     $6";
+say "fragment:  $7";