#!/usr/bin/perl

use strict;
use warnings;

sub parse
{
 my %params = @_;
# my @l=@_; print join('|',@l)."\n----\n";
 print "$_ = ".$params{$_}."\n" for keys %params; print "#####\n";
 if(exists($params{BILD}))
 {  return '<img src='.$params{BILD}.'>'; }
 elsif(exists($params{LINK}))
 { return '<a href='.$params{LINK}.'>'.$params{INHALT}.'</a>'; }
 elsif(exists($params{ZITAT}))
 { return '<pre>'.$params{INHALT}.'</pre>'; }
 elsif(exists($params{HEADLINE}))
 { return '<h>'.$params{INHALT}.'</h>'; }
 else
 { return "!!Unbekannter Befehl!!"}
}

my $string = 
'
Das ist Martin: [LINK="http://www.test.de" TARGET=_blank]klick hier[/LINK] Sein Bild: [BILD=martin.gif NAME="asd ass as" NAME2=hallo]
Das ist Bärbel: [LINK="http://www.test.de" TARGET=_blank]klick hier[/LINK] Ihr Bild: [BILD=baerbel.gif NAME="asd ass as" NAME2=hallo]
[ZITAT]Dies ist ein Zitat[/ZITAT] oder:
[HEADLINE]Dies ist eine Überschrift[/HEADLINE]
[HEADLINE SIZE=3]text[/HEADLINE]
';
print $string."\n#####\n";

$string =~ s|\[((\w+)\s*(=?)s*(.*?))\](?:(.*?)\[/\2\])?|parse($5?('INHALT',$5):(),$3 ne '='?($2,''):(),$4?(map{split(/\s+(?=\w+$)/,$_)}split(/\s*=\s*/,$3 eq '='?$1:$4)):())|gse;

print $string."\n";

[LINK=http://...]dieser Link ist [FETT]wichtig![/FETT][/LINK]

[ZITAT]Also sprach zaratustra[/ZITAT]
<div class="zitat">...</div>


ODER-

[BILD=file.gif ALT="ein text" FORMAT=PRINT]

ODER-
[BILD=file.gif ALT="blabl" POSITION="rechtsoben" FORMAT=XML]

#!/usr/bin/perl

use strict;

my $str = "wir sehen hier <b>fette Text</b>";

print parser($str);

sub parser {
	my $data = shift;

	my %html_tags = (
		fett		=> "<b>%s</b>",
		kursiv	=> "<i>%s</b>",
		zitat		=> "<blockquote>%s</blockquote>",
                link           => "<a href="%s">%s</a>",
                bild           => "<img src="%s">"
	);

	return;
}