Hallo,

ich versuche in einer Zeichenkette bestimmte Muster zu tauschen. Alle Muster kommen mehrfach in der Zeichenkette vor und sollen alle ersetzt werden.
Das Problem ist, dass die Zeichenkette nur einmal durchlaufen werden darf, weil sonst bereits ersetzte Muster erneut ersetzt werden.


Ergebnis soll sein:


und nicht:


So geht's NICHT:


Hat jemand eine zündende Idee? Ich steh grad auf dem Schlauch.

Danke und Grüsse

Danke Moritz,

du baust indirekt eine ODER-Verknüpfung, oder?
Die regexp würde sich auflösen in:

Daraus folgt die Ersetzung:


Taugt für mich.

Gibt es eine Beschränkung für den Inhalt von $regexp? 255 Zeichen oder so?

Danke und Grüsse

Benutzer+2008-09-09 10:01:12--

Danke Moritz,

du baust indirekt eine ODER-Verknüpfung, oder?
Die regexp würde sich auflösen in:

Code: (dl )

 $regexp = 'eins|drei|zwei';

Richtig.

Quote

Gibt es eine Beschränkung für den Inhalt von $regexp? 255 Zeichen oder so?

Soweit ich weiss die Größe deines Arbeitsspeichers oder 2 (oder 4?) GB, je nachdem was kleiner ist. Für praktische Zwecke also eher nicht.

Ich habe deinen Vorschlag in mein Skript eingebaut und festgestellt, dass einige Muster nicht eindeutig sind.

Beispiel:

Im Text zweiundzwanzig ist das Muster zwei enthalten und wird auch ersetzt. Soll aber nicht.

Die zu tauschenden Texte werden glücklicherweise entweder von "[Muster]" oder >[Muster]< umschlossen. Wie kriege ich das noch in die $regexp rein?

Also wenn du nur an Wortgrenzen ersetzen willst, kannst du \b benutzes:



Bei deinen anderen Begrenzern würde ich Lookarounds (?=...) und (?<=...) benutzen:



(/x und Leerzeichen zu besseren Lesbarkeit der Regex).

Viel Spass beim Lesen von perlre ;-)

Sorry, ich dachte die Wortgrenze funktioniert nicht in der Anwendung.
Falsche Annahme. Geht doch. Das war's.

perlre hab ich mehr als einmal konsultiert, aber ohne ausreichend Übung langt mein Abstraktionsvermögen nicht aus um alles zu begreifen. Ich bin einfach kein Programmierer und dazu Perl-Anfänger.

Vielen Dank für deine Hilfe.

Grüsse

Benutzer+2008-09-09 10:19:23--

Beispiel:

Code: (dl )

1
2
3
4
5

%tausche = (
                  'eins' => 'zwei',
                  'zwei' => 'eins',
                  'drei' => 'vier');
$zeichen = 'bla eins bla zwei bla drei bla vier bla zweiundzwanzig';

Im Text zweiundzwanzig ist das Muster zwei enthalten und wird auch ersetzt. Soll aber nicht.

dazu noch als anmerkung:
möchtest du tatsächlich 2 wörter ersetzen, von denen eines ein teilwort des anderen ist,
musst du die wörter vor dem bauen der regex noch nach länge sortieren. vergess ich auch
immer mal wieder. also
map { quotemeta $_ } sort { length $b <=> length $a } ...
damit wird immer das längste wort gematcht.

pq+2008-09-09 10:42:29--

dazu noch als anmerkung:
möchtest du tatsächlich 2 wörter ersetzen, von denen eines ein teilwort des anderen ist,
musst du die wörter vor dem bauen der regex noch nach länge sortieren. vergess ich auch
immer mal wieder. also
map { quotemeta $_ } sort { length $b <=> length $a } ...
damit wird immer das längste wort gematcht.

Gute Anmerkung, hoffentlich behalte ich sie für die Zukunft im Hinterstübchen.

In diesem besonderen Fall ging es um vollständige Wörter. Teilworte sollten nicht ersetzt werden. Das war Fehler Nummer 2. Siehe:

Benutzer+2008-09-09 10:19:23--

Im Text zweiundzwanzig ist das Muster zwei enthalten und wird auch ersetzt. Soll aber nicht.