--- Dan Muey <[EMAIL PROTECTED]> wrote:
> $domain =~ m/((\w+)\.(\w+)$)/;
> And $1 did indeed only have 'domain.com'
> Then I realized, what about tld's like com.uk like yahoo.com.ru
> google.com.uk
Try
my($dom) = $URI =~ m{://([^/:]+)};
If $URI = "http://some.server.com.uk:1540/other/stiff.cgi?here"; it'll
work. :)
__________________________________________________
Do you Yahoo!?
Yahoo! Shopping - Send Flowers for Valentine's Day
http://shopping.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
