Regex problem

[redgenie]

Hello,

This should be a pretty easy one for most peeps, 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 "

http://www.blahblah.com".

Here is what I have so far.

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

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.

 

[duncdude]

#!/usr/bin/perl

$string = 'blah blah blah [URL unfurl="true"]http://www.tek-tips.com[/URL] blah blah blah [URL unfurl="true"]http://tek-tips.com[/URL] blah blah blah [URL unfurl="true"]www.tek-tips.com';[/URL]

while ($string =~ m|(([URL unfurl="true"]http://)?(www\.)?([/URL][^\s<"']+)\.com)|g) {
  print "$1\n";
}

Kind Regards
Duncan

 

[redgenie]

Marvellous, thanks