99_XmlList.pm

[Guest]

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