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.