Texte in Zeichenkette tauschen - #114397 (Allgemeines zu Perl)

Benutzer

2008-09-09 11:02

User since
2008-06-18
7 Artikel
BenutzerIn
[default_avatar]

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.

Code: (dl )

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

Ergebnis soll sein:

Code: (dl )

$zeichen = 'bla zwei bla eins bla vier bla vier'

und nicht:

Code: (dl )

$zeichen = 'bla eins bla eins bla vier bla vier'

So geht's NICHT:

Code: (dl )

@ergebnis = map {$zeichen =~ s/$_/$tausche{$_}/g} keys %tausche;

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

Danke und Grüsse