nicht angemeldet
Hi,
- ae durch ä
- oe durch ö
- ue durch ü
- ss durch ß
Megärlebnis, Autöinstellplatz, Fraünquote, Außtellung. Ich hoffe Du weißt, was Du tust ;-)
Gibts dafür nen regulären Ausdruck ?
Ungetestet:
my %ersetzungen = {'ae'=>'ä', 'oe'=>'ö', 'ue'=>'ü', 'ss'=>'ß'};
Variante 1; flexibel, aber langsam:
foreach (keys %ersetzungen) {
$string =~ s/$_/$ersetzungen{$_}/g;
}
Variante 2; unflexibel, aber schnell:
$string =~ s/([aou]ess)/$ersetzungen{$1}/g;
ucfirst($string) sollte _danach_ eingesetzt werden, unter Verwendung von
perldoc perllocale
Cheatah