[gelöst] Aufruf einer skripdatei aus Funktion

[tklein]

Hallo zusammen,

meine Funktion bekommt aus dem notify eines dummys werte (on, off, rgb ffffff) übergeben. Nun möchte ich ein Skript nutzen, um den dummy (hier milight) zu steuern.

Hier die Funktion:

Code Auswählen Erweitern

sub set_milight($) {
my ($command) = @_;
my $string = "";

if (lc($command) eq "on") {
system("/opt/fhem/FhemUtils/milight-home_2.py 8 3 ON");
}

elsif (lc($command) eq "off") {
system("/opt/fhem/FhemUtils/milight-home_2.py 8 3 OFF");
}

# python milight-home_2.py 8 3 COLOR "#ff0000"
#system("/opt/fhem/FhemUtils/python milight-home_2.py 8 3 COLOR "#ff0000"")

else { # respone is "rgb "

$command =~ tr/rgb /#/d;
$string = '"/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR "' . $command . '"&"' ;
system($string);
}

return $string;
}

Als Ausgabe bekomme ich: "/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR "#ffffff"&" (Aufruf mit rgb ffffff) Allerdings wird der Befehl system($string) nicht (korrekt) ausgeführt. Evtl. verhaue ich mich auch mit den " und den '?

On & Off funktionieren

Für Hilfe bin ich wieder einmal dankbar.

Grüße
Thomas

[CoolTux]

Probiere mal bitte

Code Auswählen Erweitern


#$string = '"/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR "' . $command . '"&"' ;
#system($string);
fhem("/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR $command");


[tklein]

dann bekomme ich das:
2019.03.06 14:32:57 3 : /opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR #ff0000 : Unknown command /opt/fhem/FhemUtils/milight-home_2.py, try help.

würde da so nicht auch die " bei dem "#ffffff" fehlen?

[Otto123]

Abgesehen davon, dass ich es auch so machen würde wie Cooltux (ich glaube aber da muss noch einmal "" rein) , nimm doch FHEM zum debuggen.
Die entscheidenden zwei Zeilen etwas modifiziert in die FHEM Kommandozeile geworfen:

Code Auswählen Erweitern

{my $command =~ tr/rgb /#/d;; my $string = '"/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR "' . $command . '"&"' }ergeben

"/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR ""&"

.
Das willst Du doch nicht? Also 2. Versuch, die unnötigen " weg:

Code Auswählen Erweitern

{my $command =~ tr/rgb /#/d;; my $string = '/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR ' . $command . '&' }


/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR &

Sieht gut aus.
Noch einfacher:

Code Auswählen Erweitern

{my $command =~ tr/rgb /#/d;; my $string = "/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR $command &" }
liefert das gleiche Ergebnis.


Ok $command ist in meinem Test leer, könnte man jetzt noch mit etwas ersetzen.

Gruß Otto

[Otto123]

Ich merke gerade: in Cooltux seiner Variante müsste man fhem('" Befehl"') machen. dann wird aber die Variable $command nicht aufgelöst.
Ich hatte das hier mal etwas durchgearbeitet.

Gruß Otto

[CoolTux]

Probiere mal bitte

Code Auswählen Erweitern


#$string = '"/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR "' . $command . '"&"' ;
#system($string);
fhem("/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR $command");


Mist, Otto hat Recht. Ganz vergessen.

Code Auswählen Erweitern


#$string = '"/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR "' . $command . '"&"' ;
#system($string);
fhem("\"/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR $command\"");

[/quote]

Hoffe so geht es besser

[tklein]

@CoolTux

mit Deiner Variante bekomme ich gar keine Ausgabe
EDIT: Vergiss es, hatte string noch al returnwert drin. Die Farbe ändert sich trotzdem nicht

@Otto123

Der eigentlich Aufruf sollte eigentlich so lauten:

Code Auswählen Erweitern

#system("/opt/fhem/FhemUtils/python milight-home_2.py 8 3 COLOR "#ff0000" &")

warum soll das system jetzt mit fhem("") ersetzt werden? btw die "" bei dem hexwert brauche ich auch

[CoolTux]

Natürlich bekommst Du keine Ausgabe. Es gibt auch bei system() keine Ausgabe ausser eine nichts sagende -1.
system() kann aber FHEM blockieren wenn nicht mit & der aufrufende Befehl in den Hintergrund geschickt wird.

Code Auswählen Erweitern


fhem("\"/opt/fhem/FhemUtils/python milight-home_2.py 8 3 COLOR \"#ff0000\"\"");


Und wenn Du es so machst. Ich merke ich schon ich werde wohl nachher mal selber testen müssen.

[tklein]

mit

Code Auswählen Erweitern

$command =~ tr/rgb /"#/d;
$command = $command . '"';
fhem("\"/opt/fhem/FhemUtils/milight-home_2.py 8 3 COLOR  $command\"");

klappt es jetzt bei mir.

Natürlich bekommst Du keine Ausgabe. Es gibt auch bei system()

Ich hatte am Ende noch ein return $string drin