[Erledigt] Hilfe bei userReading

[Manul]

Ich hätte gerne für ein device einen String als userReading. Wie ich den berechne, habe ich, glaube ich, rausbekommen. Aber wie gebe ich den zurück? Mein Ansatz war:

Code Auswählen Erweitern


attr device userReadings reading {
  my $value = "ein berechneter String";
  $value;
}


Das scheint so aber nicht zu funktionieren. Ist der Ansatz falsch oder habe ich schon vorher einen Fehler im Code? In perlconsole habe ich den Code getestet, da scheint er zu tun, was er soll.

[Otto123]

Hi,

ich würde return $value versuchen.

Gruß Otto

[Manul]

Danke, funktioniert leider genauso wenig. Vielleicht ist ja doch ein Fehler in meinem sonstigen Code. Mag jemand mal drüberschauen?

Code Auswählen Erweitern


powerlevel {

  my %levels = split(/[ ,:]/,attrVal("Robi","powerlevels","");

  my $numlevel = ReadingsVal("Robi","fan_power",undef);
 
  my $level = "Custom";
 
  while(my ($key,$value) = each %levels) {
 
    if ($value == $numlevel) {
   $level = $key;
}
  }
 
  return $level;
}


Das Attribut "powerlevels" hat den Wert "Quiet:38 Balanced:60 Turbo:77 MAX:90", ein "set Robi fan_power 60" produziert den Fehler "Error evaluating Robi userReading powerlevel: syntax error at (eval 46297) line 3, at EOF".

Edit: Verwendung von "eq" statt "==" (werf ich immer durcheinander) ändert nichts

[Otto123]

Also das kannst Du so erstmal nicht sagen, deine Aufgabe würd emit return schon funktionieren

Code Auswählen Erweitern

attr device userReadings reading {
  my $value = "ein berechneter String";
  return $value;
}
ich kenne attrVal nicht, ich denke es muss AttrVal heißen.

Gruß Otto

[Manul]

Ich denke, Du hast recht. Ich denke außerdem, ich sollte die Klammer von der split-Funktion wieder schließen. 

Das Ergebnis gibt uns beiden recht: Funktioniert, danke!