Extracting the domain from a URI using Perl?

C

curious

New member
My need is to extract from a URI just the domain. So, if someone were to submit http://sub1.sub2.sub3.ThisIsTheDomain.com.co.uk, Perl would return "ThisIsTheDomain" or even "ThisIsTheDomain.com" and parse the other nonsense. I've looked into the mod URI, but haven't found what I'm looking for using it. If your answer is using a regex, please be thorough on your explanation on how it will return an accurate result. I don't want to necessarily have to modify the regex each time a new dot "whatever" is created. The best answer would be using DNS to return a hash which would include whatever, but specifically the domain name.

Thanks kindly... anxiously awaiting.
 
Back
Top