[Gelöst] Problem mit AT in Verbundung foreach

[Gear]

Guten Abend Zusammen,

ich habe ein Problem mit meinem AT.
Das AT soll meine Stromzähler auf 0 setzen und andere sachen.

Fehlermeldung LogFile:

Code Auswählen Erweitern

2018.05.07 23:59:59 3: at.Leistungsmessung.SetNull: Unknown command foreach, try help.
Unknown command if($LmDatum, try help.
Unknown command my, try help.
Unknown command my, try help.
Unknown command my, try help.
Unknown command my, try help.
Unknown command if($AktYear, try help.
Unknown command fhem("setreading, try help.
Unknown command fhem("setreading, try help.
Unknown command fhem("set, try help.
Unknown command fhem("set, try help.
Unknown command }
, try help.
Unknown command fhem("setreading, try help.
Unknown command fhem("setreading, try help.
Unknown command fhem("set, try help.
Unknown command fhem("set, try help.
Unknown command }
, try help.
Unknown command fhem("setreading, try help.
Unknown command fhem("setreading, try help.
Unknown command fhem("set, try help.
Unknown command fhem("set, try help.
Unknown command }
, try help.

Hier mein AT:

Code Auswählen Erweitern

Internals:
   COMMAND    foreach my $Dev (devspec2array("NAME=.*.Leistungsmessung..*"))
{
  my $LmDatum = ReadingsVal($Dev,'LmDatum',0);
 
  if($LmDatum ne 0)
  {
   my ($AktYear,$AktMonth,$AktDay) = split(/-/, $today);
   my ($OldYear,$OldMonth,$OldDay) = split(/-/, $LmDatum);
   
   my $LmHeute = ReadingsVal($Dev,'LmHeute',0);
   my $LmMonat = ReadingsVal($Dev,'LmMonat',0);
   my $LmJahr = ReadingsVal($Dev,'LmJahr',0);
   
   if($AktYear ne $OldYear)
   {
    fhem("setreading $Dev LmDatum $today");
    fhem("setreading $Dev LmVorJahr $LmJahr");
    fhem("setreading $Dev LmJahr 0");

fhem("set DBLogging addLog $Dev:LmVorJahr !useExcludes");
fhem("set DBLogging addLog $Dev:LmJahr !useExcludes");
   }
   
   if($AktMonth ne $OldMonth)
   {
    fhem("setreading $Dev LmDatum $today");
    fhem("setreading $Dev LmVorMonat $LmMonat");
    fhem("setreading $Dev LmMonat 0");

fhem("set DBLogging addLog $Dev:LmVorMonat !useExcludes");
fhem("set DBLogging addLog $Dev:LmMonat !useExcludes");
   }
   
   if($AktDay ne $OldDay)
   {
    fhem("setreading $Dev LmDatum $today");
    fhem("setreading $Dev LmGestern $LmHeute");
    fhem("setreading $Dev LmHeute 0");

fhem("set DBLogging addLog $Dev:LmGestern !useExcludes");
fhem("set DBLogging addLog $Dev:LmHeute !useExcludes");
   }
  }
}
}
   DEF        *23:59:59 foreach my $Dev (devspec2array("NAME=.*.Leistungsmessung..*"))
{
  my $LmDatum = ReadingsVal($Dev,'LmDatum',0);
 
  if($LmDatum ne 0)
  {
   my ($AktYear,$AktMonth,$AktDay) = split(/-/, $today);
   my ($OldYear,$OldMonth,$OldDay) = split(/-/, $LmDatum);
   
   my $LmHeute = ReadingsVal($Dev,'LmHeute',0);
   my $LmMonat = ReadingsVal($Dev,'LmMonat',0);
   my $LmJahr = ReadingsVal($Dev,'LmJahr',0);
   
   if($AktYear ne $OldYear)
   {
    fhem("setreading $Dev LmDatum $today");
    fhem("setreading $Dev LmVorJahr $LmJahr");
    fhem("setreading $Dev LmJahr 0");

fhem("set DBLogging addLog $Dev:LmVorJahr !useExcludes");
fhem("set DBLogging addLog $Dev:LmJahr !useExcludes");
   }
   
   if($AktMonth ne $OldMonth)
   {
    fhem("setreading $Dev LmDatum $today");
    fhem("setreading $Dev LmVorMonat $LmMonat");
    fhem("setreading $Dev LmMonat 0");

fhem("set DBLogging addLog $Dev:LmVorMonat !useExcludes");
fhem("set DBLogging addLog $Dev:LmMonat !useExcludes");
   }
   
   if($AktDay ne $OldDay)
   {
    fhem("setreading $Dev LmDatum $today");
    fhem("setreading $Dev LmGestern $LmHeute");
    fhem("setreading $Dev LmHeute 0");

fhem("set DBLogging addLog $Dev:LmGestern !useExcludes");
fhem("set DBLogging addLog $Dev:LmHeute !useExcludes");
   }
  }
}
}
   NAME       at.Leistungsmessung.SetNull
   NR         50
   PERIODIC   yes
   RELATIVE   no
   REP        -1
   STATE      Next: 23:59:59
   TIMESPEC   23:59:59
   TRIGGERTIME 1525903199
   TRIGGERTIME_FMT 2018-05-09 23:59:59
   TYPE       at
   READINGS:
     2018-05-09 01:02:24   state           Next: 23:59:59
Attributes:
   DbLogExclude .*


Ich hoffe Ihr könnt mir helfen.

Grüße und Danke
Gear

[CoolTux]

Du führst Dein Perlcode als FHEM Befehl aus, das funktioniert nicht. Du musst auf die "Perlebene" wechseln.
Perlcode leitest Du mit { ein und beendest ihn mit }

Code Auswählen Erweitern


DEF        *23:59:59 { foreach my $Dev (devspec2array("NAME=.*.Leistungsmessung..*"))
                                   ...
                                   }


Allerdings empfehle ich das ganze Konstrukt in eine myUtils zu stecken und dann diese auf zu rufen.
Desweiteren kann Dein Code FHEM blockieren, je nachdem wie lang Deine Schleife läuft. Alles über 1s ist als kritisch an zu sehen.

[Gear]

Ich hatte die { vergessen.... xD
Danke!!

Mit der myUtils hab ich mich bisher noch nicht auseinadergesetzt.
Bin gerade noch am testen und einrichten von FHEM.

Warum blockiert es FHEM nicht, wenn es in der myUtils ist?

[CoolTux]

Ich hatte die { vergessen.... xD
Danke!!

Mit der myUtils hab ich mich bisher noch nicht auseinadergesetzt.
Bin gerade noch am testen und einrichten von FHEM.

Warum blockiert es FHEM nicht, wenn es in der myUtils ist?

Das hast Du falsch verstanden. Die myUtils ist wegen der Ordnung. In ein at Device so einen riesen Schwalm rein zu schreiben ist eher unübersichtlich. Daher lieber richtig perl in eine Sub auslagern.
Blockieren KANN es so oder so. Das müsstest Du wenn es wirklich länger dauern kann dann an Subprocess auslagern.