Thread Objektorientiertes Programmieren
(3 answers)
Opened by Strat at 2004-12-19 01:23
das problem dabei duerften die unterschiedlichen zeichensaetze sein... um umlaute zu verinternationalisieren wuerde ich folgendermaszen vorgehen:
Code (perl): (dl
)
1 2 my %replacements = ('ä' => 'ae', 'Ä' => 'Ae', ......); $string =~ s/(.)/ exists $replacements{$ 1} ? $replacements{$ 1} : $ 1 /ge; (ohne der leerzeichen zwischen $ und 1) aber es gibt wahrscheinlich noch schnellere moeglichkeiten... PS: das ist eine der wenigen Stellen, wo mir was aus Tcl besser gefaellt als das Aequivalent in Perl (string replace), weil die auch ein zeichen durch mehrere ersetzen kann, was der perl-operator tr (bzw. y) leider nicht kann\n\n <!--EDIT|Strat|1103412302--> perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/ |