Changing URLs to Links

[LucL]

Hi guys,

I have a string that contains all text but may also contain a URL, ex:

"This is a test message. If you wish visit the url below\n

http://www.something.com

ok. that's it for now."

I want to be able to find all the URLs (they will always start with http:// and end with a space and replace them with <a href=URL>URL</a> where URL is the URL found

I know this should be possible with the perl pattern matching ~s functions but I have no idea how to approach it.

Thanks!
Luc L.

 

[raklet]

This should give you a start:

my $str = "This is a test message. If you wish visit the url below [URL unfurl="true"]http://www.something.com[/URL] ok.  You can also visit [URL unfurl="true"]http://www.google.com[/URL] ";
my @url = $str =~ /.+?(http:\/\/.*?)\s+/g;
print "<a href=\"$_\">$_</a>\n" foreach @url;

 

[LucL]

Thanks a lot raklet! That did the trick.

 

[iluvperl]

There's a lot of logic flaws with that one though. It's just enough to get you started. It won't pickup mailto: links and appears to only pick up links that start with http. You need to also look for www. urls, https, etc.

 

[raklet]

No, there is no flaw in the logic. It does exactly what the user asked for

they will always start with http:// and end with a space