senden und empfangen: in einem TK Fenster senden und empfangen - #41646 (Graphische Oberflächen)

ptk

2004-03-09 16:47

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Nicht-druckbare Zeichen kann man generell mit dem Regexp-Konstrukt [^[:print:]] erkennen. Beispiel:

Code: (dl )

1
2
3

$s = join "", map { chr $_ } (0 .. 255);
$s =~ s/[^[:print:]]//g;
warn $s;

Das Problem an dieser Vorgehensweise ist, dass die Ausgabe vom eingestellten Locale abhaengig ist. In der Praxis waere es wahrscheinlich besser, wenn du nur die Zeichen von 0-31 (ausser Tab) und 127-159 entfernst.