Zeichen durch Zeichenfolge ersetzen - #138838 (Allgemeines zu Perl)

2010-06-23 13:50

User since
2003-08-04
12208 Artikel
Admin1

du willst einfach einzelne zeichen mit einer zeichenreihe ersetzen?
für sowas würde ich als erstes an einen hash denken.

Code (perl): (dl )

my %replace = (
    m => "MPZ",
    a => "APZ",
    ...
);
my $re = join '|', keys %replace;
$string =~ s/\b($re)\b/$replace{$1}/g;

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem