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

[TomLee]

Ich hab mal wo mitgenommen das man so einen qx-Aufruf bspw.

Code Auswählen Erweitern

qx(date -d 'today -1 month' +'%Y_%m')
in der Kommandozeile einfach nur in doppelten Quotes angeben kann und der Aufruf ist nicht blockierend.
Also so:

Code Auswählen Erweitern

"date -d 'today' +'%Y_%m'"

Hier sind wir ja aber in Perl, dachte wenn ich den Aufruf in einen Fhem-Befehl stecke klappt das evtl. auch, tuts aber nicht.

Aber wenn ich den Aufruf in `` packe schon.

Frage an die "Experten", ist das dann das gleiche wie aus der Kommandozeile (nicht blockierend) oder nicht ?

Code Auswählen Erweitern

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

[Damian]

Im DOIF-Perlmodus geht es einfacher (da sind die entsprechenden Variablen schon vorhanden)

Code Auswählen Erweitern

DOIF {
[23:59];
my $monthThermicEnergy = (split(/\s/,(ReadingsVal("GPIO3","statGesamtWaermemenge",0))))[5];
fhem("setreading GPIO3 ${year}_${month}_TEST $monthThermicEnergy");
}

Den Vormontag kann man aus $month natürlich entsprechend bestimmen.

[Otto123]

Den Vormontag kann man aus $month natürlich entsprechend bestimmen.

wobei wir wieder beim Knackpunkt sind 
@TomLee
qx(date -d 'today -1 month' +'%Y_%m') und `date -d 'today' +'%Y_%m'` (also backticks) sind faktisch das Gleiche siehe https://perldoc.perl.org/perlop#Quote-Like-Operators
Der Aufruf "date -d 'today' +'%Y_%m'" in der FHEM Kommandozeile schreibt die Ausgabe in das LogFile.

Dein letzter Codeblock ist also auch blockierend, was bei date keine Rolle spielen dürfte.

[Damian]

Den Vormonat kann man ja einfach berechnen:

Code Auswählen Erweitern

my $premonth=($month==1 ? 12 : $month-1);

Ich würde mir die ganzen Systemaufrufe sparen.

[TomLee]

Im DOIF-Perlmodus geht es einfacher

Was genau meinst du damit ? Nur die Zeit-Angabe ([23:59] in Perl oder auch die Zeitvariablen, weil die sind doch nicht DOIF-spezifisch, das sind doch "normale, einfache FHEM-Variablen" ?

[Damian]

Die Variabeln $month, $year usw. gibt es in Perl nicht. Es handelt sich um lokale Variablen, die entweder in fhem.pl deklariert wurden oder im DOIF oder sonst in irgend einem Modul, wenn sie dort definiert wurde.

Im DOIF z. B. werden sie in der Abarbeitung der Bedingung im FHEM-Modus oder im Perl-Block im Perlmodus deklariert und mit aktuellen Werten belegt.

[Otto123]

Dann mal noch ein Vorschlag für den Kompletten String wie im Ausgangspost. Nur mit Verwendung von Variablen
Für aktuellen und Vormonat

Code Auswählen Erweitern

{strftime('%Y_%m',$sec,$min,$hour,$mday,$month-1,$year-1900)}
{$month==1 ? strftime('%Y_%m',$sec,$min,$hour,$mday,11,$year-1901) : strftime('%Y_%m',$sec,$min,$hour,$mday,$month-2,$year-1900)}

Sollte in FHEM einzeilern gehen nicht in myUtils dort braucht man vorher die korrekte Zuweisung in der Art (nur als Ansatz):

Code Auswählen Erweitern

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime()
Siehe auch https://commandref.fhem.de/#perl