59_WUup Code Review

[CoolTux]

Wie schon gesagt, ich hatte hier ein bereits vorhandenes Modul genommen und für meine Zwecke umgebaut. Zumindest in https://wiki.fhem.de/wiki/DevelopmentModuleAPI finde ich leider nichts zu CommandAttr. Wo finde ich denn eine Erklärung dazu?

Das ist eine ewig offene Baustelle und die alten Hasen würden Dir sagen schaue in den Code von fhem.pl
Im Grunde gibt es mittlerweile für alles eine Funktion in der fhem.pl. Also das Setzen von Attributen, Readings. Auslesen von Attributen und Readings und so weiter.
Es sollte vermieden werden Hash selbst von Hand zu befüllen wo FHEM interne Dinge gesetzt werden. Readings, Timestamp, Attribute und so weiter. Beispiel $attr

[mahowi]

Schade, daß die Doku leider etwas vernachlässigt wird. Dann werde ich mir wohl mal den Code zu Gemüte führen müssen.

[CoolTux]

Das mit der Doku aka Developer Guide ist ein bekanntes Problem in fast allen Projekten. Markus hat das komplette Developer Guide fast alleine aufgesetzt. Das ist schon Wahnsinn. Aber so war es bis jetzt halt. Funktionen hielten Einzug in fhem.pl und wurden dort und vielleicht im Forum kurz dokumentiert. Das war es. Erst in letzter Zeit, so zwei drei Jahre, kommen Dokumentationen in die Developer Guides von neuen Funktionen.

[KernSani]

Schade, daß die Doku leider etwas vernachlässigt wird. Dann werde ich mir wohl mal den Code zu Gemüte führen müssen.

Du kannst auch z.B. mal in 44_ROLLO schauen, da nutze ich CommandAttr um im define default-Werte zu setzen.


Gesendet von iPhone mit Tapatalk

[RichardCZ]

11:39 - und ich überlege stark ob ich zum Vodka greifen soll. Ihr macht mich noch zum Alkoholiker.

96           $attr{$name}{room}                //= "Weather";
97           $attr{$name}{unit_windspeed}      //= "km/h";
98           $attr{$name}{unit_solarradiation} //= "lux";
99           $attr{$name}{round}               //= 4;
   96       #$attr{$name}{room}                //= "Weather";
   97       CommandAttr( undef, "$name room Weather" )
   98           if ( AttrVal( $name, "room", "" ) eq q{} );
   99   
   100       #$attr{$name}{unit_windspeed}      //= "km/h";
   101       CommandAttr( undef, "$name unit_windspeed km/h" )
   102           if ( AttrVal( $name, "unit_windspeed", "" ) eq q{} );
   103   
   104       #$attr{$name}{unit_solarradiation} //= "lux";
   105       CommandAttr( undef, "$name unit_solarradiation lux" )
   106           if ( AttrVal( $name, "unit_solarradiation", "" ) eq q{} );
   107   
   108       #$attr{$name}{round}               //= 4;
   109       CommandAttr( undef, "$name round 4" )
   110           if ( AttrVal( $name, "round", "" ) eq q{} );

[mahowi]

Wein und Whiskey hätte ich im Angebot. 

Schöner ist definitv der erste Ansatz. Wie ich aber jetzt auch gelernt habe, soll man die Atrribute nicht direkt manipulieren sondern das FHEM-eigene CommandAttr nutzen:

Ich würde gerne nochmal diese Zeilen hier augreifen:

Code Auswählen Erweitern


$attr{$name}{unit_windspeed}      //= "km/h";
$attr{$name}{unit_solarradiation} //= "lux";
$attr{$name}{round}               //= 4;

Das sieht schön aus und ist sicherlich Perl-technisch super. Ich gebe allerdinmgs zwei Punkte zu bedenken:
Für einen Perl-Noob (die wir ja zu großen Teilen hier sind) ist das völlig unverständliches Zeug, ein "if" kann dagegen jeder lesen, der ein bisschen programmieren kann. Ich werde das mal an mir persönlich ausprobieren, wenn ich das irgendwo in meinem Code verwende und in 4 Wochen nochmal drauf schaue Das ist aber garnicht mein eigentlicher Kritikpunkt, was auch bedacht werden sollte:
Wenn schon aufgeräumt wird, dann könnte man auch gleich FHEM-technisch aufräumen (das kann Richard sicher noch nicht leisten) und dazu würde m.E. gehören, dass $attr nicht direkt manipuliert wird, sondern CommandAttr verwendet wird.

Grüße,

Oli
   

Ich würde das auch gerne wieder kürzer schreiben, sehe da aber jetzt keinen Ansatz.

[Beta-User]

Ungetestet:

Code Auswählen Erweitern

AttrVal($name,"unit_windspeed",)//CommandAttr(undef,"$name unit_windspeed km/h");
Der Trick ist dabei der, dass bei AttrVal ausdrücklich kein default angegeben wird, sondern gerade darauf "gelauscht" wird, dass ggf. undef zurückkommt...

(Na ja, ist eigentlich nur ein Teil der Lösung, denn wenn man sicherstellen will, dass es den Attributwert gibt, muß man sowas ähnliches z.B. in Initialize() packen , oder dann eben mit Variablen arbeiten, die nur intern gültig sind. Für mich sieht das nach "Mischmasch" aus.)

[RichardCZ]

Wein und Whiskey hätte ich im Angebot. 

Schöner ist definitv der erste Ansatz. Wie ich aber jetzt auch gelernt habe, soll man die Atrribute nicht direkt manipulieren sondern das FHEM-eigene CommandAttr nutzen:
Ich würde das auch gerne wieder kürzer schreiben, sehe da aber jetzt keinen Ansatz.

Also - da ich nicht weiß wohin zuerst - es fehlt z.B. noch ein Thread zum Thema:

'', 0, undef - ist doch alles dasselbe oder?

möchte ich zu diesem Diff nur folgende Stichpunkte loswerden:

* Verwendung "dafür vorgesehener Methoden" ist natürlich immer gut. Aber diese Methoden sollten auch gut sein.
* Nach Sichtung halte ich CommandAttr und AttrVal für schlecht designed und schlecht programmiert (ersteres ist das größere Übel)
* Hier (diff) wird leichtfertig mit "not true" und "is undef" umgegangen als sei es das Selbe. dasselbe. Das Gleiche. Scheinbar anscheinend.

Richtig richtig wäre es gewesen, wenn $Attr ein Objekt gewesen wäre und man eben nur mittels Methoden darauf zugreift (Getter), oder was ändert (Setter), oder gleich bei der Definition eines Attributs implizit vom Objekt Default-Werte setzen lässt.

Das ist für FHEM auf absehbare Zukunft aber leider noch Sci-Fi.

Von diesem Sci-Fi ist sowohl //= wie auch CommandAttr() if AttrVal weit entfernt. Mit dem Unterschied, dass letzteres ca. 200x langsamer und 23.5x unleserlicher ist als ersteres.

[Beta-User]

Ansichten eines DAM:

Attribute sind in FHEM das Mittel, um Usereingaben statischer Art zu speichern. Defaults machen (als Attribut!) wenig Sinn. Der Modulautor sollte aber intern natürlich einen default festlegen. Aber eben als Variable innerhalb des Moduls, die einmal initialisiert wird bzw. erneuert, wenn der User tatsächlich eine Eingabe tätigt...

An sich macht die Konstruktion unten daher keinen Sinn, es ist schlicht nicht nötig, Defaults irgendwo außerhalb des Moduls fest abzulegen.
Die Schreib- oder Lesegeschwindigkeit dieser beiden Funktionen ist daher auch reichlich sekundär, da man diese eben nicht ständig brauchen sollte.

Edit
Verwendung als Variable:

Code Auswählen Erweitern

my $unit_windspeed = AttrVal($name,"unit_windspeed","km/h");

[herrmannj]

Schade, daß die Doku leider etwas vernachlässigt wird. Dann werde ich mir wohl mal den Code zu Gemüte führen müssen.

Kannst Du maßgeblich mit beeinflussen. Das ist ein community Projekt!

[herrmannj]

Code Auswählen Erweitern

my $unit_windspeed = AttrVal($name,"unit_windspeed","km/h");

Ja, so ist die das korrekt.

[mahowi]

Kannst Du maßgeblich mit beeinflussen. Das ist ein community Projekt!

Natürlich. Wo ich kann, arbeite ich auch gerne im Wiki mit. Aber Funktionen, die ich nicht kenne, kann ich nicht dokumentieren. 

[RichardCZ]

Verwendung als Variable:

Code Auswählen Erweitern

my $unit_windspeed = AttrVal($name,"unit_windspeed","km/h");

Und das sieht auch schon wesentlich besser aus. Jetzt noch

Code Auswählen Erweitern

my $unit_windspeed = AttrVal($name, 'unit_windspeed', 'km/h');

und ich muss noch nicht zur Flasche greifen.

[mahowi]

Okay, ich habe jetzt die Defaults für Attribute aus dem Define rausgeworfen. Jetzt habe ich nur noch

Code Auswählen Erweitern

    my $unit_windspeed      = AttrVal( $name, 'unit_windspeed', 'km/h' );
    my $unit_solarradiation = AttrVal( $name, 'unit_solarradiation', 'lux' );
    my $rnd                 = AttrVal( $name, 'round', 4 );
für benötigte Default-Werte drin.

Wo finde ich denn Näheres zur Verwendung von " und '?

[RichardCZ]

Okay, ich habe jetzt die Defaults für Attribute aus dem Define rausgeworfen. Jetzt habe ich nur noch

Code Auswählen Erweitern

    my $unit_windspeed      = AttrVal( $name, 'unit_windspeed',      'km/h' );
    my $unit_solarradiation = AttrVal( $name, 'unit_solarradiation', 'lux' );
    my $rnd                 = AttrVal( $name, 'round',                4 );
für benötigte Default-Werte drin.

Wo finde ich denn Näheres zur Verwendung von " und '?

https://forum.fhem.de/index.php/topic,109616.0.html
und PBP 51-53