Community  »  Perl: Allgemeines Forum

Suchen und ersetzen	Seitenanfang
Guten Morgen! Ich habe ich einen ewig großen Text, in dem sehr viele Platzhalter in dem Muster [MT:blablabla;blaablaablaa] (das blabla ist immer unterschiedlich). Nun muss ich die blaablaa... Texte alle extrahieren und bearbeiten (durch eine Funktion laufen lassen) und dann ersetzen. Was ist der beste Lösungsweg. Funktionen sind ja im RegEx nicht erlaubt, sonst würde wohl gehen [code] $text =~ s/\[MT:(.*?)\]/replace_mt($1)/g; sub replace_mt { my $values=shift; my $replacement = "123"; # Rückgabe (Ersetzung) return $replacement; } Was ist nun der beste Lösungsansatz? Danke für die Hilfe! Gruß - Jens Datum: 18.02.2008-10:17
re: Suchen und ersetzen	Seitenanfang
$text =~ s/\[MT:(.*?)\]/replace_mt($1)/ge; Der e-Modifizierer steht für Evaluieren, das heißt der Ersetzungsteil wird ausgeführt. So funktionieren auch Funktionen im Ersetzungsteil. Datum: 18.02.2008-23:17