gelöst:Probleme mit Wertübergabe beim ersten 99_testUtils Versuch

[Jupedi]

Hallo,

beschäftige mich gerade etwas mit Perl Programmierung und versuche es in einer 99_testUtils anzuwenden.

Ich habe zwei Dummys definiert <ursprung> und <ergebnis>

Ziel ist nur, zu Testzwecken, den Wert aus <ursprung> an die Sub zu übergeben,
etwas zu rechnen ( $Wert1*100) und dann an Dummy <ergebnis> zurückzugeben.

Der Aufruf soll über folgendes Notify erfolgen.

Code Auswählen Erweitern

define n_Multipl notify ergebnis {Multipl("ergebnis")}

Die Datei heißt 99_testUtils.pm

Mein Testscript sieht so aus.

Code Auswählen Erweitern

package main;
use strict;
use warnings;
use POSIX;

sub testUtils_Initialize($)
{
   my ($hash) = @_;
}

sub Multipl($)

{

my ($Wert1) = @_;

  my $Wert2 = $Wert1*100;

{fhem ("setstate ergebnis $Wert2")}

}

1;

Habe versucht, mich an die Struktur aus dem Wiki zu halten, scheitere aber gerade.

Der Wert von<ergebnis> ändert sich nicht entsprechend.

Woran krankts ?

[KernSani]

Aktuell übergibst du den Wert ,,ergebnis", du müsstest noch mit ReadingsVal (siehe Commandref) den tatsächlich Wert aus dem Dummy lesen


Gesendet von iPhone mit Tapatalk

[rabehd]

Aktuell übergibst du den Wert ,,ergebnis", du müsstest noch mit ReadingsVal (siehe Commandref) den tatsächlich Wert aus dem Dummy lesen


Gesendet von iPhone mit Tapatalk

Vielleicht etwas ausführlicher.
Du übergibst der Funktion immer die Zeichenkette "ergebnis".
Somit ist $Wert1 keine Zahl, sondern eine Zeichenkette. Eine Zeichenkette mal 100... macht das Sinn?

[xenos1984]

Außerdem müsstest du offenbar auf ursprung triggern und nicht auf ergebnis, und auch dessen Wert übergeben.

[Prof. Dr. Peter Henning]

Eine Zeichenkette mal 100... macht das Sinn?

Aber ja. Perl ist eine Sprache mit schwacher Typisierung - wenn die Zeichenkette also einen Zahlenwert hat, geht das durchaus.

Kann man ausprobieren, indem man

Code Auswählen Erweitern

{"100"*3}
in die FHEM Kommandozeile eingibt.

LG

pah

[rabehd]

Aber ja. Perl ist eine Sprache mit schwacher Typisierung - wenn die Zeichenkette also einen Zahlenwert hat, geht das durchaus.

Kann man ausprobieren, indem man

Code Auswählen Erweitern

{"100"*3}
in die FHEM Kommandozeile eingibt.

LG

pah

Schon klar, aber mit Wort- oder Buchstabenwert (wie beim Geocaching) rechnet Perl wohl normalerweise nicht.

[Jupedi]

Danke für die Infos
Werde jetzt noch mal versuchen das umzusetzen und melde mich dann.

[Jupedi]

Also, das Notify sieht jetzt so aus:

Code Auswählen Erweitern

define n_Multipl notify ursprung {Multipl(ReadingsNum("ursprung","state",""))}

damit scheint die Übergabe an die Sub zu funktionieren.

Die Sub sieht jetzt so aus:

Code Auswählen Erweitern

package main;
use strict;
use warnings;
use POSIX;

sub testUtils_Initialize($$)
{
   my ($hash) = @_;
}

sub Multipl($)

{

my ($Wert1) = @_;

my $Wert2=$Wert1*100;

       {
       fhem ("setstate ergebnis" .$Wert2);
       }

}

1;

Im Log ist jetzt folgende Meldung:

Code Auswählen Erweitern

2020.03.13 17:12:19 3: setstate ergebnis100 : Usage: setstate <name> <state>
where <name> is a single device name, a list separated by comma (,) or a regexp. See the devspec section in the commandref.html for details.

2020.03.13 17:12:19 3: n_Multipl return value: Usage: setstate <name> <state>
where <name> is a single device name, a list separated by comma (,) or a regexp. See the devspec section in the commandref.html for details.


Es scheint der Rückgabebefehl das Problem zu sein.

Code Auswählen Erweitern

{fhem ("setstate ergebnis" .$Wert2);}

Nur kann ich mittels commandref den Fehler nicht finden.

setstate <devspec> <value>

[Otto123]

Auch Leerzeichen haben eine Bedeutung

Code Auswählen Erweitern

"setstate ergebnis " .$Wert2
Sagt doch die Fehlermeldung sehr plastisch  setstate ergebnis100 du wolltest doch setstate ergebnis 100

[Jupedi]

Ach komm, das Leerzeichen  Das darf doch nicht ...

Funktioniert !!!

Danke 

[Prof. Dr. Peter Henning]

https://www.bpb.de/apuz/287315/lesekompetenz-und-lesebegriff


LG

pah