Hallo,
Ich habe folgendes Problem:
Ich möchte in Perl in einem String alle Sonderzeichen durch den Unicode-Wert ersetzen, also z.B. © in ©
Da beginnt jetzt aber das Problem. Gestützt auf die Tabelle in http://selfhtml.teamone.de/html/referenz/zeichen.htm habe ich meine Ersetzroutine geschrieben, also etwas so:
$ersetzen=~s/¡/¡/gs;
$ersetzen=~s/¢/¢/gs;
$ersetzen=~s/£/£/gs;
$ersetzen=~s/¥/¥/gs;
usw.
Jetzt sieht das Resultat aber nicht überall gleich aus.
Auf einigen Servern kommt bei der Eingabe ä ö ü auch ä ö ü (bzw. ä ö ü) raus, auf anderen aber ä ö ¸ (im Quelltxt: ä ö ¸)
Kann mir jemand auf die Sprünge helfen? Ich könnte wahrscheinlich auch
"use URI::Escape;" verwenden, will ich aber nicht, da es überall ohne grosses Installieren von Modulen klappen soll.
Danke für jeden Tipp!
Ciao, sprain