sprain: Umlaute und Sonderzeichen in Unicode übersetzen

Beitrag lesen

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