Regulärer Ausdruck will nicht funktionieren?

[Markus Trusk]

Hallo,

sub encodetext   {
my $text = shift;
       ^....... hier speicherst Du den zu kodierenden Text in $text

while ($text =~ /[text][Textfarbe=(.*?),Stil=(.*?),Size=(.*?)](.+?)[/text]/sgi)    {
   my($stil,$farbe,$groesse,$text) = ('') x 4;
                               ^....... hier speicherst Du den  Elementinhalt in $text

Vielen dank. Ehrlich gesagt wäre ich hier nicht draufgekommen. In meinem anderen Script hat es deswegen funktioniert, weil der ganze Text in $changedtext gespeichert war, aber da in diesem Fall mein $changedtext, $text hieß, waren die beiden natürlich nicht mehr zu unterscheiden :)

Markus Trusk.