sleep in while-schleife keine Wirkung?

[hmtec99]

Hallo Leute.

Nach Wakeup eines Displays (Nextion) wird der Inhalt einer Datei mit den aktuellen Variablenwerten an das Display gesendet. Da es hierbei ab und an
Probleme gibt, habe ich versucht das Ganze durch ein Sleep zu entzerren.

Dafür verwende ich folgenden Code (hier übertrieben mit 2s zum Test; eigentlich steht hier ein Wert von 0.1 oder weniger - siehe Kommentar)

Code Auswählen Erweitern

use Storable;

my %state = %{retrieve('TD_statefile')};

    while(@array=each(%state))
    {
      Log 4, "$array[1]\n";
#   {fhem ("sleep 0.1;set $device $array[1];")};
  {fhem ("sleep 2;set $device $array[1]")};
    }
Problem ist nun, daß die Verzögerung anscheinend keine Auswirkung hat: Die Befehle (ca. 60) werden anscheinend (inkl. Antwort vom Device) innerhalb
von etwas mehr als einer Sekunde abgearbeitet.

Denkfehler/Codefehler meinerseits?

Gruß, Oli
 

[hmtec99]

Da fällt mir gerade noch was auf:

Ist das abschließende Semikolon beim letzten Befehl nötig oder funktioniert beides?

{fhem ("sleep 0.1;set $device $array[1];")};
{fhem ("sleep 2;set $device $array[1]")};

[MadMax-FHEM]

Denkfehler/Codefehler meinerseits?

Ja

Also deine Schleife läuft "sofort" und "komplett" durch.
Bei jedem Durchlauf wird ein "verzögerter set" erzeugt aber eben alle quasi "zeitgleich"...

D.h. alles läuft eben um 1x Sleepwert verzögert.

Wenn du in fhem sowas willst, ist eine Möglichkeit eine Sub rekursiv mit Verzögerung aufrufen und dann immer das nächste Stückchen abarbeiten.
Oder die Devices in eine structure packen und dann mit delay arbeiten...

Gruß, Joachim

[Jamo]

oder die sleep time mit jedem schleifendurchlauf zu inkrementieren...

[frank]

oder den kompletten "string" für einen "fhem" cmd in der schleife zusammenbauen und anschliessend ausführen.

[hmtec99]

Bahnhof? 

Kann mir jemand meinen Code umbauen, damit es funktioniert? 

Oder mir erklären, was ich anscheinend an der Funktionsweise von while nicht verstehe...

[MadMax-FHEM]

Oder mir erklären, was ich anscheinend an der Funktionsweise von while nicht verst

Habe ich doch ausführlich?!

Also:

Durchlauf 1: es wird ein Slepp + Befehl abgesetzt
Sofort Durchlauf 2: es wird ein Sleep + Befehl abgesetzt

Aber Sleep1+Befehl2 und Sleep2+Befehl2 usw. werden quasi "zur selben Zeit" erzeugt...

D.h. am Ende der Schleife, die quasi "sofort" durch ist hast du X Sleep+Befehl erzeugt, die aber alle (fast) gleichzeitig loslaufen...

Packe doch einfach mal Logausgaben in deinen Code, dann wirst du es sehen...

Gruß, Joachim

[MadMax-FHEM]

Kann mir jemand meinen Code umbauen, damit es funktioniert? 

Welche Variante soll es werden?

Gruß, Joachim

[hmtec99]

Ist es nicht so?

while(@array=each(%state))  >> mache solange rum, bis kein Futter mehr im Array, und zwar:
    {
      Log 4, "$array[1]\n";  >> schreib was ins Log (falls Level >=4) und
#     {fhem ("sleep 0.1;set $device $array[1];")}; 
     {fhem ("sleep 2;set $device $array[1]")};  >> schlaf ein bißchen, führ anschließend EINEN Befehl aus und fang dann wieder von oben an!?
    }

[hmtec99]

wenn ich dich richtig verstehe hat, vesetze ich fhem 2 sekunden in den schlaf und sende aber gleichzeitig den befehl ab?

häh??

Im Endeffekt möchte ich erreichen, daß jeder Durchlauf von while um eine Zeit x verzögert wird, das Zieldevice nicht überfordert wird... d.h. ballere nicht 60 Befehle quasi zeitgleich raus sondern mit jeweils minimaler Verzögerung...

[Jamo]

Aber 'oben' wartet doch nicht, bis der 'eine' Befehl seinen 'sleep 2' fertig hat. Das 'sleep 2' ist nur der erste Teil des 'EINEN' Befehls, der dann sofort ausgefuehrt wird.

>>wenn ich dich richtig verstehe hat, vesetze ich fhem 2 sekunden in den schlaf und sende aber gleichzeitig den befehl ab?

Nein, es wird intern ein timer gestartet, der befehl wird dann erst mit 2 sekunden verspaetung gestartet.

[frober]

Der Befehl wird am Fhem gesendet, dann läuft die Schleife weiter.
Fhem wartet parallel 2s und führt den Befehl aus. Während dessen kommen schon neue Befehle von der Schleife in Fhem an.
D.h. du hast das gleiche wie ohne sleep nur 2s später.

Nachtrag: da war Jamo schneller

[hmtec99]

d.h. das sleep müßte außerhalb von fhem {} stehen (davor)? sorry, I don't get it...

[frober]

Ja, aber in Perl blockiert es!!!!

[hmtec99]

Ja, aber in Perl blockiert es!!!!

das habe ich auch schon gelesen...