Gossamer Forum: General: Perl Programming: Regex!

Oct 12, 2001, 6:45 AM

Andy

Veteran / Moderator (18441 posts)

Oct 12, 2001, 6:45 AM

Post #1 of 3

Shortcut

Regex!

This is getting me really annoyed. I bet as soon as the delete function dissapears from here I will find the answer Wink

Basically, I have a URL held in $url. What I want to do is split the www.test.com/something/something/index.html part into www.test.com and /something/something/index.html.

I know how to do the normal regex thing where it would split them up with the /'s, but i need it to split after the domain.

Would the following work?

my ($start, $end) = split(/.com|.net|.co.uk|.edu/, $url);

Any ideas would be appreciated Smile

Andy (mod)
andy@ultranerds.co.uk

Oct 12, 2001, 6:54 AM

Paul

Veteran (19537 posts)

Oct 12, 2001, 6:54 AM

Post #2 of 3

Shortcut

Re: [AndyNewby] Regex! In reply to

Nope.

Code:
if ($url =~ m,^(http://[^/]+)(.*)$,) { 
    $begin = $1; 
    $end = $2; 
}

That should do the trick :)

I tested it with a few URL's and it worked well.

Oct 12, 2001, 6:57 AM

Andy

Veteran / Moderator (18441 posts)

Oct 12, 2001, 6:57 AM

Post #3 of 3

Shortcut

Re: [RedRum] Regex! In reply to

Thanks

Andy (mod)
andy@ultranerds.co.uk