Perl Hilfe nötig (Sommertage ermitteln)

[Michael]

Moin

Ich komm immer auf Ideen was das KS300 Modul angeht.
Aber so richtig Ahnung von Perl habe ich nicht. 

Ich brauche eure Hilfe.
Ich möchte gern die Sommertage eines Jahres ermitteln.

Was will ich : wenn die Temperatur über 25 °C steigt soll ein Reading (summer_days) einmalig am Tag
                     den Readingwert (summer_days) um 1 erhöhen.

Was habe ich : die KS300 im Garten und in Fhem eingebunden.
                        einbinden ins Modul mache ich über userReadings summer_days { sommertage("KS300") }.
                         in der myUtils habe ich folgenden Code, der nicht richtig ist.

Code Auswählen Erweitern


use Date::Calc qw(:all);

sub sommertage($)
{
  my ($name)                              = @_;
  my $temp                                = ReadingsVal($name,"temperature",0);
  my ($year,$month,$day, $hour,$min,$sec) = Today_and_Now();
  my $hv                                  = 0;

  # Um 23:59:59 Uhr Hilfsvariable zurücksetzen
  if ($hour == 23 && $min == 59 && $sec == 59) {
     $hv = 0;
  }   

  if ($temp >= 25 && $hv == 0) {
    $hv = 1;
    return ReadingsVal($name,"summer_days",0) + 1;
  }
}

So, nun mein Problem mit der If Struktur.
Wie macht man dass das der Zähler nur einmal erhöht wird ?

PS. Code geändert. 13.07.15
                       

[Paul]

Ich kenne den KS300 nicht, deshalb die erste Frage speichert er die höchst und niedrigstemperaturen pro Tag? Wenn das der Fall ist würde ich um 23:59 Abfragen ob die Höchsttemperatur >= 25 ist und wenn ja Sommertag um 1 erhöhen.

Sollte das nicht der Fall sein, würde ich einen Dummy einrichten, der bei einer Temperatur >= 25 auf 1 gesetzt wird und diesen wie oben um 23:59 abfragen und wieder auf 0 setzen.

[Michael]

Hallo Paul

Vielen Dank für deine Antwort.

... deshalb die erste Frage speichert er die höchst und niedrigstemperaturen pro Tag? ...

Ja, das macht das Statistik Modul.

Wenn das der Fall ist würde ich um 23:59 Abfragen ob die Höchsttemperatur >= 25 ist und wenn ja Sommertag um 1 erhöhen.

Dann wäre die Summe aber immer um einen Tag versetzt, was nicht so toll wäre.

Wenn ich das mit userReadings mache würde eine Aktualisierung bei veränderter Temperatur durchgeführt.
Nun ist aber das Problem bei >= 25°C würde jedesmal dazugezählt.

Deshalb fehlt mir was in dem oben fehlerhaften Code.

[frank]

du musst vor dem incrementieren den timestamp vom sommertage-reading pruefen. wenn der heute schon erhoeht wurde, dann nicht noch mal.

gruss frank

[Michael]

Moin frank

Autor: Michael
« am: 12 Juli 2015, 19:22:03 »
Aber so richtig Ahnung von Perl habe ich nicht. 

Auf meine kläglichen Versuche habe ich jetzt kein Zugriff.
Und das große gelächter will ich hier nicht auslösen.

Kannst du mir etwas mehr Veraten?

[frank]

Und das große gelächter will ich hier nicht auslösen.

die am lautesten lachen, haben vielleicht noch weniger wissen. 

Kannst du mir etwas mehr Veraten?

angenommen deine gepostete version stimmt noch. da versuchst du ja schon etwas ähnliches mit $hv. das problem ist halt nur jedesmal, wenn deine funktion aufgerufen wird, setzt du $hv=0. damit zerstörst du den sinn der variablen. speichere den wert in einem reading mit setreading immer wenn du den wert der variablen ändern würdest. und die initialisierung machst du dann mit ReadingsVal. damit überlebt deine hilfsvariable.

Code Auswählen Erweitern

my $hv = ReadingsVal("KS300","meineHilfsVariable",0);
fhem("setreading KS300 meineHilfsVariable 0");

dein zurücksetzen wird wahrscheinlich nicht funktionieren, denn dann müsste ja zufällig 23:59:59 sein, wenn du deine funktion aufrufst. dafür könntest du separat ein at definieren, das dir das reading zurücksetzt.

ausserdem würde ich das userreading nur triggern lassen wenn sich die temperatur (reading temperature?) ändert.

userReadings summer_days:temperature { sommertage("KS300") }

gruss frank

[Michael]

Moin frank

Erstmal Danke für deine ausführliche Antwort.

Aber irgend was ist bei mir immer noch nicht Richtig. 
Das ist jetzt der aktuelle Code.

Code Auswählen Erweitern

sub sommertage($)
{
  my ($name)                              = @_;
  my $temp                                = ReadingsVal($name,"temperature",0);
  my $hv                                  = ReadingsVal($name,"x_sd",0);


  if ($temp >= 25 && $hv == 0) {
    fhem("setreading $name x_sd 1");
    return ReadingsVal($name,"summer_days",0) + 1;
    }
}
Das Hilfsreading wird so wie gewollt gesetzt.
Nur bei dem summer_days Reading passiert nichts
Sehe Anhang.

ausserdem würde ich das userreading nur triggern lassen wenn sich die temperatur (reading temperature?) ändert.

Habe ich so Übernommen, man Lernt nie aus.
Das kannte ich so "summer_days:temperature" auch nicht. 

dein zurücksetzen wird wahrscheinlich nicht funktionieren, denn ...

Auch das habe ich so übernommen.

[frank]

Nur bei dem summer_days Reading passiert nichts

du hast kein return wert, wenn das if nicht wahr wird. in dem fall muss der gleiche wert zurückgegeben werden.

[Michael]

Moin

Ich trau mich schon gar nicht mehr zu Fragen. 

Aber was mache ich falsch, es will einfach nicht.

Code Auswählen Erweitern

sub sommertage($)
{
  my ($name)                              = @_;
  my $temp                                = ReadingsVal($name,"temperature",0);
  my $hv                                  = ReadingsVal($name,"x_sd",0);



if($temp ge 25 && $hv eq 0)
{
  fhem("setreading $name x_sd 1");
  return ReadingsVal($name,"summer_days",0) + 1;
}
else
{
  return ReadingsVal($name,"summer_days",0);
}

}

Bitte

[frank]

es gibt nun immer noch moeglichkeiten die funktion ohne return zu verlassen.  lass das if um das neue return weg.
ausserdem hast du wohl gerade eine klammer zu viel getippt.

[JoWiemann]

Hallo,

heißt das Device auch wirklich KS300? Wenn Du die Sub mit sommertage("KS300") aufrufst und das Device anders heißt bekommst Du auch kein Ergebnis.

Grüße Jörg

[Michael]

Moin

@frank
Noch habe ich nicht aufgegeben, es läuft aber auch noch nicht.
Versuche mich noch daran.

@Jörg

heißt das Device auch wirklich KS300? ...

Ja, das Device heißt so.

Ist schon lächerlich was ich Bewergstellige, bzw auch nicht. 

[frank]

if($temp ge 25 && $hv eq 0)

zahlenvergleiche besser mit "<,>,==".

zum testen empfiehlt es sich eine (mehrere) debugausgabe(n) einzubauen, die in fhem.log sichtbar werden.

Code Auswählen Erweitern

Log(1,"----- mein debugger ----- $name $temp $hv");

[Michael]

Moin

So bin kurz vor der Aufgabe. 

Habe jetzt z Zt diesen Code.

Code Auswählen Erweitern


sub sommertage($)
{
  my ($name)                              = @_;
  my $out;
  my $temp                                = ReadingsVal($name,"temperature",0);
  my $sd                                  = ReadingsVal($name,"summer_days",0);
  my $hv                                  = ReadingsVal($name,"x_sd",0);


if($temp >= 25 && $hv == 1)
{
  $out = $sd + 1;
  #fhem("setreading $name x_sd 0");
}
elsif ($hv == 0)
{
  $out = $sd;
}

Log(1,"----- mein debugger ----- $name $temp $hv $sd");
return $out;   

}

So, nun habe ich heraus Gefunden, das wenn ich fhem("setreading $name x_sd 0"); aktiviere
wird die Hilfsvariable gesetzt, aber nicht das Reading summer_days aktualisiert wird.

Und natürlich wenn ich #fhem("setreading $name x_sd 0"); deaktiviere wird
das Reading summer_days mit jeder Device Aktualisierung erhöht.

In der Fhem.log (Log(1,"----- mein debugger ----- $name $temp $hv") sind keine Einträge.

Und nun wie weiter?

[frank]

In der Fhem.log (Log(1,"----- mein debugger ----- $name $temp $hv") sind keine Einträge.

das sollte dir zu denken geben. 

kann eigentlich nur bedeuten, dass deine funktion nicht aufgerufen wird. userreading ok?

wenn du in die eingabezeile

Code Auswählen Erweitern

{sommertage("KS300")}
eingibst, sollte in fhem.log die debuggingzeile erscheinen.

dann noch elsif in else ändern, sonst gibt es wieder fälle ohne return-wert. damit die logik stimmt im if auf $hv==0 prüfen. die logik für $hv hast du wohl geändert.

edit: ich habe die funktion jetzt bei mir mal eingebaut. da gibt es probleme mit dem setreading. es funktioniert nur, wenn das setzen des readings in ein anderes modul (oder dummy) gemacht wird. in deinem fall die hilfsvariable also nicht nach "KS300" speichern. die tücken mit setreading sind immer wieder beeindruckend.