Mit Perl den ASCII-Wert eines Zeichens ändern

[Christian Kruse]

Hi,

auch wenn sie mit einigen Zeichen (< ASCII 5, > ASCII 250) Probleme haben könnte.

Eigentlich hatte ich _absichtlich_ nicht auf das Problem hingewiesen, damit er selber darauf kommt und
drüber nachdenkt.
Zu lösen ist das jedoch recht einfach mit

$string =~ s/(.)/chr((ord($1) > 250 ord($1) < 5) ? (ord($1) > 250 ?  (ord($1) - 250) : (ord($1) + 250)) : (ord($1) - 5))/eg;

(Ich mag es, fies zu sein *gg*)

mfg
CK1