Extract and process data out of [code] tags using regular expressions 1

[Zhris]

I need to be able to check if a message contains [link] tags and then replace them with the appropriate html code.

E.g.

The link to Google is [link]http://google.com[/url] !!!
=
The link to Google is <a href="[URL unfurl="true"]http://google.com"[/URL] target="_blank">[URL unfurl="true"]http://google.com</a>[/URL] !!!

I am very weak whilst writing regexes and this one has really gone over the top of my head. Any help or links to help would really be appreciated.

sub command_link {
	$link_ = $_[0];
	my $link = '<a href="'.$link_.'" target="_blank">'.$link_.'</a>';
	return $link;
}

if ($message =~ m/^\[link\](?)+\[\/link\]$/) { $message = command_link(m/^\[link\](.$)\[\/link\]$/); }

Thanks

 

[feherke]

Hi

Why not this ?

$message =~ s/\[link\](.+?)\[\/link\]/<a href="$1" target="_blank">$1<\/a>/g;

Feherke.

http://rootshell.be/~feherke/

 

[Zhris]

Hi,

Thank you, thats cleared up a few things.

All my "commands" (subroutines) are stored in a separate library file and I sort of wanted to be consistent with this. This is partially because the user has the ability to append/edit the library file (add/edit commands).

Is there any practical way I could pass $1 into the subroutine?

Thanks

 

[feherke]

Hi

$message =~ s/\[link\](.+?)\[\/link\]/command_link($1)/eg;

Feherke.

http://rootshell.be/~feherke/

 

[Zhris]

Absolutely perfect *****

Thanks