Ersetzen ( s///g ) nur X mal ausführen - #125009 (Allgemeines zu Perl)

Gast Humbert

2009-08-27 17:57

Hi,
danke für deine Antwort.
Das Problem ist halt leider, dass auch der Wert variiert - mal sollen zwei ersetzt werden, mal eins mal keins.

Wäre dies möglich?:

Code (perl): (dl )

$maxcount = 2; #replace anzahl
$count = 0;    #anfang
while($count < $maxcount)
{
    $mod_textformator_text =~ s/(\[img\])([a-zA-Z0-9+-_.\/:]*?)(\[\/img\])/<img src="$2">/;
    $count=$count + 1;
}

Viele Grüße
Humbert