Extract urls from string

perl, url, extract

[KeithBoynton]

Hello,

I'm hoping someone can help me here. I'm trying to extract a list of urls from a string.

Remembering that urls could be typed "http://blahblah.com" or "www.blahblah.com".

Here is what I have so far.

my @links = $textString =~ m#((www\.¦http://)[^\s<"']+)#gm;

It seems to be working fine in most scenarios except that I always get an extra www. or http:// because of the parenthesis around the "or" condition.

Any help would be greatly appreciated.

[SeanW]

I suppose you could make the http optional, and also use \b to make it easier to find word boundaries:

m/\b((http://)?www.*?)\b/mg

Sean

[mbauser2]

Writing a regular expression to find URLs is like finding the Holy Grail: Ain't gonna happen, because it doesn't exist.

It's time to learn about Perl modules: URI-Find-0.13 [search.cpan.org]

[KeithBoynton]

Thanks very much for your help :)