Perl regexp mehrere Muster ersetzen bei gegenseitigem Aussschluss

[Zwirbel (Gast)]

Ich möchte in einem String mehrere Muster durch etwas anderes ersetzen.

Beispiel: aabbccddeebbddhh

Ersatz: bbcc => bb
        bbdd => jj

Ergebnis: aabbddeejjhh

Beide Ersetzungen sollen zum tragen kommen.
Aber sie sollen sich gegenseitig ausschliessen.
D.h. entsteht, wie in dem Beispiel beim Ersatz ein Muster das wiederrum 
ersetzt werden "könnte", so soll es trotzdem nicht ersetzt werden.

Soweit, so gut.

In perl, c etc. ist das kein Problem wenn einfach ein Buffer mit der 
längsten Länge gelesen und mit den Mustern verglichen wird. Wenn ein 
Ersatz vorgenommen wurde, dann wird der Buffer um die Zeichen die 
ersetzt wurden weitergeschaltet.

Aber geht das auch in perl regexps?
Ich kann ja mit s/bbcc/bb/ nur einzelne Muster erkennen und ersetzen.
Aber wenn ich zwei solche Ersetzungen hintereinanderschalte, dann 
ersetzt er mir vielleicht was, was (gemäß obiger Forderung) nicht mehr 
ersetzt werden soll.

Also z.B.

aabbccddeebbddhh      s/bbcc/bb/          aabbddeebbddhh
                      s/bbdd/jj/          aajjeejjhh          # so 
nicht!

Frage also, geht das anders mit regexps?

[Εrnst B. (ernst)]

Du kannst im Replacement-Part der Regexp einfach einen Hash-Lookup 
machen und so beide Ersetzungen "gleichzeitig" ausführen.

Zum Bleistift:

my $a="aabbccddeebbddhh";
my %replacement=(bbcc=>'bb',bbdd=>'jj');
$a=~s/(bbcc|bbdd)/$replacement{$1}/g;
print $a;

Ergibt:
aabbddeejjhh

Wird so ähnlich oft beim HTML-Escaping angewandt, damit "<" zu "&lt;" 
und eben nicht "&amp;lt;" wird:

my %html_escape = ('&' => '&amp;', '>'=>'&gt;', '<'=>'&lt;', '"'=>'&quot;');
my $html_escape = qr/([&<>"])/;

sub basic_html_escape
{
    return unless defined ${ $_[0] };

    ${ $_[0] } =~ s/$html_escape/$html_escape{$1}/mg;
}

[Zwirbel (Gast)]

@ Ernst

Ich muss schon sagen.

Danke.

[Zwirbel (Gast)]

Dieses "<" ist mir aber schon öfter untergekommen.

Na ja. Vielleicht liest einer diesen Thread.

;-)