Extract domain name

[Shabam]

How do you fetch just the domain name part of a variable in a script? The
variable can be "http://www.domain.com/blahblah/whatever/page.htm" or
"http://sub.domain.com/blahblah/whatever/page.htm".

What I need is to extract just the "domain.com".

 

[David Kroeber]

* Shabam:

How do you fetch just the domain name part of a variable in a script? The
variable can be "http://www.domain.com/blahblah/whatever/page.htm" or
"http://sub.domain.com/blahblah/whatever/page.htm".

What I need is to extract just the "domain.com".

try something like:

my(undef, undef, $domain) = $s =~
/^(http|ftp|whatever):\/\/(www|ftp|whatever)\.(.+?)\//;

There might be some module that does what you're looking for (check
CPAN), I didn't look for it, actually...

bye
//Dave

 

[Andrew Tkachenko]

Look for URI module. IMHO, its a good and simple thing for parsing URLs

use URI;
($domain = URI->new("http://www.domain.com/blahblah/whatever/page.htm")->authority) =~ s/^www\.//i


Regards,
Andrew

Shabam wrote on 12 ÐоÑбрь 2004 16:02: