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

Gast wer

2009-08-27 17:55

Pack das ganze in eine Schleife:

Code (perl): (dl )

my $counter=5;
while($mod_textformator_text =~ s/(\[img\])([a-zA-Z0-9+-_.\/:]*?)(\[\/img\])/<img src="$2">/)
{
  $counter--;
  last if($counter==0)
}

print "$counter mal Ersetzt.\n";