Originally posted by: <email address deleted>
hat ein wenig gedauert um die Stelle zu lokalisieren, wo meine Zeichen-
Encoding Probleme herkamen.
es scheint mir das Modul 99_XmlList.pm ein Fehler beim Encoding zu
haben.
from source (cvs):
20 #####################################
21 sub
22 XmlEscape($)
23 {
24 my $a = shift;
25 return "" if(!defined($a));
26 $a =~ s/\\\n/
/g; # Multi-line
27 $a =~ s/&/&/g;
28 $a =~ s/"/"/g;
29 $a =~ s/30 $a =~ s/>/>/g;
31 $a =~ s/([^ -~])/sprintf("#%02x;", ord($1))/ge;
32 return $a;
33 }
Das Encoding für Zeichen in Zeile 31 habe ich abgeändert auf:
31 $a =~ s/([^ -~])/sprintf("&#x%02x;", ord($1))/ge;
und nun bekomme ich auch die richtigen Zeichen aus XML::Simple
heraus...
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com