@Sailor:
get km200 /notifications
{"id":"/notifications","type":"errorList","recordable":0,"writeable":0,"values":[{"cat":"L","act":"H","dcd":"6A","ccd":227,"orig":"0","t":"2013-10-30T09:01:00"},{"cat":"L","act":"H","dcd":"6A","ccd":227,"orig":"0","t":"2013-10-30T07:27:00"},{"cat":"L","act":"H","dcd":"6A","ccd":227,"orig":"0","t":"2013-10-29T16:26:00"},{"cat":"L","act":"H","dcd":"6A","ccd":227,"orig":"0","t":"2013-10-28T18:15:00"},{"cat":"B","act":"H","dcd":"2E","ccd":207,"orig":"0","t":"2015-01-17T15:21:00"},{"cat":"A","act":"H","dcd":"A33","ccd":816,"orig":"34","t":"2015-02-22T11:57:00"},{"cat":"A","act":"H","dcd":"A16","ccd":816,"orig":"21","t":"2015-02-18T19:17:00"},{"cat":"A","act":"H","dcd":"A16","ccd":816,"orig":"21","t":"2015-02-18T18:48:00"},{"cat":"A","act":"H","dcd":"A16","ccd":816,"orig":"21","t":"2015-02-18T18:30:00"}]}
Kommentar:
Fehler 3E / 207 = Wasserdruck im Heizkreis kleiner 0.8 (?) bar.
Wäre schon toll wenn Du das hinkriegst, denn ich halte diese Werte für einer der wichtigsten Readings im Alltagsleben um Störungen frühzeitig erkennen zu können ( z.B. mail-Info )
Noch eine Anmerkung zur NUM-Prüfung.
my $number="--1..1";
#$number =~ s/-+/-/g;
#$number =~ s/\.+/\./g;
if ( $number =~ /^[0-9.-]+$/) {
$number *= 1;
print "Zahl: $number\n";
} else {
print "String: $number\n";
}
Dieses Beispiel ergibt: Argument "--1..1" isn't numeric in multiplication (*) at test.pm line 10.
Zahl: 0
Der Vergleich ergibt zwar Zahl aber perl kann nicht multiplizieren.
Man könnte noch die beiden auskommentierten Anweisungen reinbringen, die aus beliebig vielen . oder - nur exakt einen macht (--1..1 => -1.1), oder den Wert mit einer Fehlermeldung zurückweisen.
if ($number =~ m/-{2,}/ || $number =~ m/\.{2,}/) {
print "Fehler\n"
}
Gruß DLindner
