[gelöst] DOIF: qx Rückgabewert in fhem(setreading ...) verwenden

[h002]

Folgende Definition habe ich im DOIF

Code Auswählen Erweitern


DOELSEIF ([23:59]){
my $timePrefixMonth = qx"date -d 'today' +'%Y_%m'";
my $monthThermicEnergy = (split(/\s/,(ReadingsVal("GPIO3","statGesamtWaermemenge",0))))[5];
fhem("setreading GPIO3 ${timePrefixMonth}_TEST ${monthThermicEnergy});
}

Verwende ich diese Syntax im DOIF, wird der Wert "277" (aus Variable monthThermicEnergy) in Form von "_TEST 277" für das Reading gesetzt. Das "_TEST" wird also nicht an den Reading-Namen der Variable timePrefixMonth als Präfix gesetzt, sondern an den Wert gehangen.

Falsch: Reading "2021_08" hat den Wert "_TEST 277"
Richtig: Reading "2021_08_TEST" hat den Wert "277"

Setze ich die Variable timePrefixMonth vom qx manuell auf "2021_08", funktioniert das Verketten mit fhem("setreading ...") korrekt. qx scheint also einen Wert mitzuliefern, der durch das setreading anders interpretiert wird.  Führe ich

Code Auswählen Erweitern

{qx(date -d 'today' +'%Y_%m')}

auf der Webkonsole aus, bekomme ich "2021_08" angezeigt. Kann mir das bitte jemand erklären? Vielen Dank!

[h002]

Vermutlich habe ich die Ursache gefunden.

Das "qx" scheint durch das "date" einen Zeilenumbruch als Rückgabewert mit zu erhalten. So funktioniert es jetzt bei mir mit Hilfe von chomp().

Code Auswählen Erweitern


DOELSEIF ([23:59]){
my $timePrefixMonth = qx"date -d 'today' +'%Y_%m'";
chomp($timePrefixMonth)
my $monthThermicEnergy = (split(/\s/,(ReadingsVal("GPIO3","statGesamtWaermemenge",0))))[5];
fhem("setreading GPIO3 ${timePrefixMonth}_TEST ${monthThermicEnergy}");
}


[TomLee]

Hallo,

versuch mal so:

Code Auswählen Erweitern

{
my $v = (split(/\s/,(ReadingsVal("GPIO3","statGesamtWaermemenge",0))))[5];
my $tpm = qx"date -d 'today' +'%Y_%m'";
$tpm .= "_TEST $v"

fhem("setreading GPIO3 $tpm);
}


Ich verstehe die geschweiften Klammern bei den Variablen nicht, sollten die beim DOIF gebraucht werden musst die noch ergänzen.

Gruß

Thomas

edit:

edit:

Ok, wenn es an dem Zeilenumbruch liegt, dann trotzdem etwas kürzer auch mit chomp, ungetestet:

Code Auswählen Erweitern

{
my $v = (split(/\s/,(ReadingsVal("GPIO3","statGesamtWaermemenge",0))))[5];
my $tpm = chomp(qx"date -d 'today' +'%Y_%m'");
$tpm .= "_TEST $v"

fhem("setreading GPIO3 $tpm);
}

[h002]

Hast du

Code Auswählen Erweitern

my $tpm = chomp(qx"date -d 'today' +'%Y_%m'");
getestet? Ich bekomme dort den Fehler

Code Auswählen Erweitern

Can't modify quoted execution (``, qx) in chomp at (eval 9557149) line 1, near "qx"date -d 'today -1 month' +'%Y_%m'")"
Das hatte ich auch erst so, aber es funktioniert bei mir erst nach dem qx den Wert in die Variable geschrieben hat.

Die geschweiften Klammern sind eine Syntax-Variante in Perl, um Variablen in Strings anstatt z.B. den "." zu verwenden. So hab ich es verstanden.

[Otto123]

Hi,

anstatt des Umweges über die Shell:

Code Auswählen Erweitern

my $timePrefixMonth = strftime('%Y_%m',localtime())

Gruß Otto

[h002]

Danke euch für eure Rückmeldungen.

Den Umweg über die Shell habe ich gemacht, weil ich auch den Vormonat benötige. Das ging mit

Code Auswählen Erweitern

qx(date -d 'today -1 month' +'%Y_%m')
fixer.

Oder gibt es in Perl was Ähnliches, ohne das Thema mit dem Dezember / Januar abzufangen?

[TomLee]

... das Thema mit dem Dezember / Januar abzufangen?

Da werden mehrere die Hände überm Kopf zusammenschlagen, aber es wäre eine Lösung:

Mit dem ternären Operator, kurz und knapp, prüfen ob

Code Auswählen Erweitern

my $v = strftime(%m',localtime())

eins ergibt und dann 12 zurückgeben, sonst den Rückgabewert mit sprintf (mit führender Null edit: wenn nicht schon zweistellig) ausgeben ?

[Otto123]

Schau mal hier: https://wiki.fhem.de/wiki/Zeitangaben,_rechnen_mit
Auf die Schnelle zum Anschauen in der FHEM Kommandozeile:

Code Auswählen Erweitern

{strftime('%Y_%m',localtime(time-60*60*24*31))}

Thema mit dem Dezember / Januar ist damit abgefangen aber wegen exakt einem Monat, der hat ja nicht immer 31 Tage - da gibt es sicher etwas.

[TomLee]

aber wegen exakt einem Monat, der hat ja nicht immer 31 Tage - da gibt es sicher etwas.

Deswegen der Vorschlag von gerade eben.

[Otto123]

Eigentlich liefert localtime eine Liste / einzelnen Elemente:

Code Auswählen Erweitern

{my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();;return $mon}
$mon liefert den Monat - 1, der aktuelle Monat ist also $mon+1, der Vormonat ist $mon

Oder lieg ich da falsch?

[TomLee]

Oder lieg ich da falsch?

Kann leider nicht folgen wie die Frage jetzt gemeint ist, wenns um rechnen mit Zeiten geht war ich bisher froh das du da warst 

Verstehe nicht warum $mon den letzten Monat zurückgibt.

Meinetwegen nimmt man mit meinem obigen Vorschlag auch einfach $month.

edit:

Achso, du meinst $mon könnte man hier jetzt verwenden weil bei null angefangen wird zu zählen ?

[h002]

Eigentlich liefert localtime eine Liste / einzelnen Elemente:

Code Auswählen Erweitern

{my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();;return $mon}
$mon liefert den Monat - 1, der aktuelle Monat ist also $mon+1, der Vormonat ist $mon

Oder lieg ich da falsch?

Da liegst du richtig. Ich muss dann aber trotzdem Dezember (11) und Januar (0) prüfen.

Passt jetzt aber alles und konnte mein Problem mit dem qx ja lösen. Vielen Dank nochmal.

[TomLee]

Und warum mit qx und nicht mit einem Systemaufruf der nicht blockierend sein kann ? Zumindest hab ich es bisher so verstanden .

[Otto123]

Da liegst du richtig. Ich muss dann aber trotzdem Dezember (11) und Januar (0) prüfen.

Dezember verstehe ich nicht. Bei 0 hast Recht.

system() liefert die Ausgabe nicht zurück.

[h002]

Dezember verstehe ich nicht. Bei 0 hast Recht.

Die IT'ler nehmen es wieder sehr genau. Im Kopf habe ich nur überlegt, dass ich beim Jahreswechsel was beachten muss. Darum habe ich Dezember und Januar erwähnt. Das es kein Problem mit dem Vormonat vom Dezember gibt, ist mir klar.