Data commit

Task/URL-parser/Perl/url-parser.pl

@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use URI;
+
+for my $uri (do { no warnings 'qw';
+                  qw( foo://example.com:8042/over/there?name=ferret#nose
+                      urn:example:animal:ferret:nose
+                      jdbc:mysql://test_user:ouupppssss@localhost:3306/sakila?profileSQL=true
+                      ftp://ftp.is.co.za/rfc/rfc1808.txt
+                      http://www.ietf.org/rfc/rfc2396.txt#header1
+                      ldap://[2001:db8::7]/c=GB?objectClass=one&objectClass=two
+                      mailto:John.Doe@example.com
+                      news:comp.infosystems.www.servers.unix
+                      tel:+1-816-555-1212
+                      telnet://192.0.2.16:80/
+                      urn:oasis:names:specification:docbook:dtd:xml:4.1.2
+                   )}) {
+    my $u = 'URI'->new($uri);
+    print "$uri\n";
+    for my $part (qw( scheme path fragment authority host port query )) {
+        eval { my $parsed = $u->$part;
+               print "\t", $part, "\t", $parsed, "\n" if defined $parsed;
+        };
+    }
+
+}