Perl Skript funktioniert nicht

[wuast94]

ich versuche meine ganzen strom daten zusammen zu rechnen und anschließend in einen dummy zu schreiben mit folgendem code:

Code Auswählen Erweitern

+*00:00:05  {

#Variablen sammeln
my $powerpc=ReadingsNum("GZ_Strom_PC","power",0);
my $powerkueche=ReadingsNum("K_Strom_Devices","power",0);
my $powertv=ReadingsNum("WZ_Strom_TV","power",0);
my $energypc=ReadingsNum("GZ_Strom_PC","energy",0);
my $energytv=ReadingsNum("WZ_Strom_TV","energy",0);
my $energykueche=ReadingsNum("K_Strom_Devices","energy",0);

#Rechnen
my $powerges=$powerpc+$powertv+$powerkueche;
my $energyges=$energypc+$energytv+$energykueche;

#Werte schreiben
setreading Strom_Gesamt power $powerges;
setreading Strom_Gesamt energy $energyges
}

allerdings kommt folgender output aus dem event monitor

Code Auswählen Erweitern

2017.11.19 22:42:14 1 : ERROR evaluating {<Code von oben>}: Can't locate object method "power" via package "281.2" (perhaps you forgot to load "281.2"?) at (eval 13906) line 16.

[DeeSPe]

Code Auswählen Erweitern


#Werte schreiben
fhem "setreading Strom_Gesamt power $powerges";
fhem "setreading Strom_Gesamt energy $energyges";

Gruß
Dan