PERL Frage im FHEM

[MikeR]

Hallo,

ist vermutlich eine irre blöde Frage, ich bin aber in Perl Anfänger...
Hintergrund: Ich möchte in einer Notification-Funktion eine static Variable definieren. Grund ist, dass ich mir dort jeweils den letzten Wert der Notifikation merken will, um eine notwendige Aktion nur dann zu tätigen, wenn sich der Auslösewert auch geändert hat.

Also mache ich in dem Notify-Block (ich denke das ist ein Wrapper für eine Funktionsdefinition) sowas wie...

Code Auswählen Erweitern

static $LastValue = 0
my $NewValue = ReadingsVal( 'IrgendeinObjekt', 'IrgendeinWert', '');
if( $NewValue ne $LastValue )
{
   # Mach was
}

$LastValue = $NewValue;

...und bekomme einen Fehler "Global symbol "$OldValue" requires explicit package name".

Das mit dem static habe ich aus einer Perl Doku. Aus meinen uralten C++ Kenntnissen heraus scheint das plausibel zu sein. Nur geht's halt nicht.

Ein klitzekleiner Tipp für einen Anfänger wäre echt nett!

Danke schön
Mike

[betateilchen]

...und bekomme einen Fehler "Global symbol "$OldValue" requires explicit package name".

naja, wenn die Variable bei Dir in Wirklichkeit "$LastValue" heißt, und Du irgendwo versuchst, auf eine nicht existierende Variable "$OldValue" zuzugreifen, ist die Fehlermeldung nicht verwunderlich.

Und das mit dem "static" mag in C++ korrekt sein, aber perl ist eine andere Sprache.

[MikeR]

naja, wenn die Variable bei Dir in Wirklichkeit "$LastValue" heißt, und Du irgendwo versuchst, auf eine nicht existierende Variable "$OldValue" zuzugreifen, ist die Fehlermeldung nicht verwunderlich.

Sorry, das war ein Tippfehler hier in meinem Posting, nicht im Code/der Fehlermeldung. Da steht beides Mal "$LastValue"!

Und das mit dem "static" mag in C++ korrekt sein, aber perl ist eine andere Sprache.

Ja, stimmt. Perl ist eine andere Sprache. Deswegen schrieb ich auch "...habe ich aus einer Perl Doku" und "...scheint das plausibel zu sein".

Wenn meine Syntax falsch ist, oder es sowas wie statische Variablen in Perl-Funktionen gar nicht gibt, wie würde den eine Lösung aussehen, um in einem notify einen neu eingetroffenen Wert mit dem Vorgängerwert zu vergleichen und ggf. die Notofikation zu verwerfen, weil schon darauf reagiert wurde?

[bartman121]

https://wiki.fhem.de/wiki/Event-on-change-reading

Das im device setzen und dein notify Triggert nur noch, wenn sich der Wert ändert.

[betateilchen]

Das im device setzen und dein notify Triggert nur noch, wenn sich der Wert ändert.

und was hat das mit dem Problem zu tun, um das es hier geht?

[betateilchen]

Also mache ich in dem Notify-Block (ich denke das ist ein Wrapper für eine Funktionsdefinition) sowas wie...

Code Auswählen Erweitern


static $LastValue = 0


Wenn das also bei jeder Ausführung des notify auf 0 gesetzt wird, kannst Du Dir den Vergleich einfach sparen, weil er nie das Ergebnis liefern wird, das Du erwartest. Du hast also weniger ein Syntaxproblem, sondern eher ein Verständnisproblen, wie FHEM arbeitet und wie ein notify grundsätzlich funktioniert.

Davon abgesehen: Perl Grundlagen zu vermitteln ist nicht Aufgabe dieses Forums, dafür gibt es genügend und sehr viele Webseiten.

[crusader]

Wenn das also bei jeder Ausführung des notify auf 0 gesetzt wird, kannst Du Dir den Vergleich einfach sparen, weil er nie das Ergebnis liefern wird, das Du erwartest. Du hast also weniger ein Syntaxproblem, sondern eher ein Verständnisproblen, wie FHEM arbeitet und wie ein notify grundsätzlich funktioniert.

Das Verständnisproblem liegt hier wohl eher bei dir, denn der Sinn von statischen Variablen besteht ja gerade darin, dass sie nur beim ersten Aufruf initialisiert werden.
Das Keyword für statische Variablen in Perl heisst aber "state".

Es wird allerdings in einem notify-Block nix nützen, weil der Perl-Code darin keine sub des Hauptprogramms ist, sondern ein eigenständiges Programm.
Warum der angestrebte Effekt nicht mit einem "event-on-change-reading"-Attribut zu erzielen ist, verstehe ich aber nicht
(,warum harmlose Fragesteller im FHEM-Forum ständig angepflaumt werden, noch viel weniger  )

[MikeR]

Das Verständnisproblem liegt hier wohl eher bei dir, denn der Sinn von statischen Variablen besteht ja gerade darin, dass sie nur beim ersten Aufruf initialisiert werden.

Ich wollte auch gerade erklären das eine statische Variable ja irgendwo initialisiert werden muss und die Syntax in dem Zusammenhang bedeutet, dass es nur zur Deklarationszeitpunkt passiert.

Das Keyword für statische Variablen in Perl heisst aber "state".

Upps, danke da hab ich wohl einen Fehler gemacht!

Es wird allerdings in einem notify-Block nix nützen, weil der Perl-Code darin keine sub des Hauptprogramms ist, sondern ein eigenständiges Programm.
Warum der angestrebte Effekt nicht mit einem "event-on-change-reading"-Attribut zu erzielen ist, verstehe ich aber nicht

Ich auch nicht  Ich muss gestehen das ich das noch nicht kannte! Sorry dafür!

(,warum harmlose Fragesteller im FHEM-Forum ständig angepflaumt werden, noch viel weniger  )

Ich glaube das ist noch nicht mal dem Schreiber persönlich anzukreiden. Das passiert inzwischen in fast allen Foren. Zum einen ist ja der gröbere Umgang bei einer letztendlich doch anonymen Kommunikation immer "straffrei" und zum anderen sind die höfflichen Umgangsformen unserer Altvorderen leider Geschichte. Ich fürchte da kann man kaum noch eine Gegenströmung erzeugen. Wenn man in einem Forum eine Frage stellt, muss man halt ein dickes Fell haben...

Aber zum Schluss nochmal Danke an ALLE, die sich die Mühe gemacht haben um mir bei meinem Problem zu helfen und überhaupt etwas zu schreiben...

[betateilchen]

Es wird allerdings in einem notify-Block nix nützen, weil der Perl-Code darin keine sub des Hauptprogramms ist, sondern ein eigenständiges Programm.

das bestätigt doch genau die von mir getroffene Aussage:

Wenn das also bei jeder Ausführung des notify auf 0 gesetzt wird,

denn der code-Block wird bei jeder Ausführung des notify als eigenständiges Programm erneut ausgeführt.

Und: ja, ich weiß (berufsbedingt), was statische Variablen sind.



Wer hat hier eigentlich wo welchen Fragesteller "angepflaumt"?

[fiedel]

Hier mal ein Beispiel, welches dich weiterbringen sollte.