CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Regular Expressions: expression for pulling domains out of URLs: Edit Log



scrpnsanctuary
Novice

Jun 8, 2009, 2:33 PM


Views: 4389
expression for pulling domains out of URLs

Hi there, I would like some help with this.

I have an expression that will grab the domain (xxx.com) out of a url (http://www.google.com/?query=blah).

Requirements:
1) Must be able to work if there is a port number in the URL (http://www.amazon.com:8010/somepage.html)
2) Needs to get the domain (something.com) part (preferably into 1 variable, but if it's in 2 I can join them)
3) Needs to work if the URL does not contain stuff between the domain and '://' (http://somesite.com/page.html)
4) Needs to work if the URL has a lot of subdomains (http://some.domain.some.other.domain.site.com/page.htm)

My current expression sometimes doesn't work, but I'm not sure if if is one of the above conditions or something else.


Here's what I'm using right now:

Code
if ($url =~ /^.*?\:\/\/(.*?\.)??([^\.]+?\.[^\.]+?)[\/\:].*/) 
{
my ($pre_domain) = $1;
my ($domain) = $2;

### More stuff ###
}




Thank you very much for your help.
----------
The vastness of what we know is only surpassed by the vastness of what we don't.

(This post was edited by scrpnsanctuary on Jun 9, 2009, 11:18 AM)


Edit Log:
Post edited by scrpnsanctuary (Novice) on Jun 8, 2009, 2:37 PM
Post edited by scrpnsanctuary (Novice) on Jun 8, 2009, 2:46 PM
Post edited by scrpnsanctuary (Novice) on Jun 8, 2009, 2:46 PM
Post edited by scrpnsanctuary (Novice) on Jun 8, 2009, 2:47 PM
Post edited by scrpnsanctuary (Novice) on Jun 8, 2009, 2:48 PM
Post edited by scrpnsanctuary (Novice) on Jun 9, 2009, 11:18 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives