(Perl) Parse a URL into its Component Parts

Demonstrates how to parse a URL into it's component parts.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$url = chilkat::CkUrl->new();

$urlStr = "https://www.amazon.com/Anarchy-State-Utopia-Robert-Nozick/dp/0465051006/ref=sr_1_1?s=books&ie=UTF8&qid=1430344305&sr=1-1&keywords=nozick#frag123";

$success = $url->ParseUrl($urlStr);
# Assume success..

print "URL: " . $urlStr . "\r\n";
print "Host: " . $url->host() . "\r\n";
print "Port: " . $url->get_Port() . "\r\n";
print "HostType: " . $url->hostType() . "\r\n";
print "Ssl: " . $url->get_Ssl() . "\r\n";
print "Path: " . $url->path() . "\r\n";
print "Query: " . $url->query() . "\r\n";
print "Frag: " . $url->frag() . "\r\n";
print "----" . "\r\n";

$urlStr = 'http://matt:secret@www.chilkatsoft.com:8080/somepath.asp?test=123&size=2';

$success = $url->ParseUrl($urlStr);
# Assume success..

print "URL: " . $urlStr . "\r\n";
print "Host: " . $url->host() . "\r\n";
print "Port: " . $url->get_Port() . "\r\n";
print "HostType: " . $url->hostType() . "\r\n";
print "Ssl: " . $url->get_Ssl() . "\r\n";
print "Login: " . $url->login() . "\r\n";
print "Password: " . $url->password() . "\r\n";
print "Path: " . $url->path() . "\r\n";
print "Query: " . $url->query() . "\r\n";
print "Frag: " . $url->frag() . "\r\n";