Re: Extracting a domain name from a url

From -> http://yahoo.co.uk/notfound.html
extract only -> yahoo.co.uk

rhesa already suggested using a specialized module, which yields a superior solution, which is superior because it uses a a specialized module (and that's generally the case), but this shouldn't be hard to do with a match or split, in which case some familiarity with elementary regexen should help you. In particular the following should be fine for you:

my $url='http://yahoo.co.uk/notfound.html';
my $host=(split m(/+), $url)[1];
[download]

Comment on Re: Extracting a domain name from a url Download Code

Replies are listed 'Best First'.
Re^2: Extracting a domain name from a url by rhesa (Vicar) on Oct 15, 2006 at 18:26 UTC
Yup, your solution does work for the majority of urls. For the record, here are some urls that wouldn't be handled properly with your regex: `http://proxy.aol.com:8080/ http://user:pass@yahoo.com/login` [download]	[reply] [d/l]
Re^3: Extracting a domain name from a url by abachus (Monk) on Oct 15, 2006 at 23:02 UTC
thanks monks, as always you show light on things i cannot see :)	[reply]
Re^3: Extracting a domain name from a url by ministry (Scribe) on Oct 16, 2006 at 01:10 UTC
This one is one I've been using in production for a while, and seems to hold up well: `my $url="http://proxy.aol.com:8080/login"; my($host)=$url=~/http:\/\/([^\/]+)/;` [download] word! -Ev Update: Sorry, I'm a moe - I forgot to add the point of this post in my example! Good judgement comes with experience. Unfortunately, the experience usually comes from bad judgement.	[reply] [d/l]
Re^4: Extracting a domain name from a url by ikegami (Patriarch) on Oct 16, 2006 at 01:49 UTC
You code fails with the input you gave it. Furthermore, it doesn't work with the other example in the post to which you replied either. `http://proxy.aol.com:8080/` gives `proxy.aol.com:8080` instead of `proxy.aol.com`. `http://user:pass@yahoo.com/login` gives `user:pass@yahoo.com` instead of `yahoo.com`	[reply] [d/l] [select]


Pathologically Eclectic Rubbish Lister
	PerlMonks