[fast gelöst] [perl] Erste Schitte mit random RGB Wert

[LarsMie]

Früher oder später wollte ich mich mit dem Thema Perl auf jeden Fall auseinandersetzen. Da ich jezt eine Funktion brauche, um einen RGB-Wert zufällig zu generieren, habe ich mich mal dran gemacht.

Code Auswählen Erweitern

sub randomRGB()
{
my $rgb;
my ($r, $g, $b) = (int(rand(256)), int(rand(256)), int(rand(256)));

$rgb = sprintf("%02x%02x%02x", $r, $g, $b);

return ($rgb)
}

Syntaktisch gab es vom Editor keine Fehlermeldungen, die Funktion sollte also den random-Wert zurückgeben.


Erste Frage:

Ist das alles so richtig?

Zweite Frage:

Wenn ich folgendes in die codezeile eingebe:

Code Auswählen Erweitern

set  MQTT_TV_SOCKEL rgb {randomRGB}

wird mein RGB-Stripe auf weiß gestellt.


Das heißt eintweder ist was in meinem Perl-Code falsch, oder ich habe den Befehl falsch eingegeben. Ich muss gestehen, dass ich mit dem ausführen von Perl-Codes in der Kommandozeile noch keine Erfahrungen habe.

Wie wirds richtig gemacht? (Steht bestimmt in der Doku, bzw in dem Fhem-Script)

Danke für eure Tipps

[CoolTux]

Bau doch mal ein paar Logs ein oder wegen meiner auch printf ausgaben. Lasse Dir ausgeben wie Deine skalare befüllt wurden. Dann findest Du auch schnell den Fehler.


Grüße

[LarsMie]

 

Warum komm ich da nicht drauf... Klar, ist zum debuggen natürlich besser! Ich teste das mal aus.

[LarsMie]

Also,

einen kleinen Fehler habe ich gefunden, und zwar beim return fehlte ein Semikolon.


Habe ie Funktion in der Befehlszeile ausgeführt und mittels printf die Werte mal ausgeben lassen in die logdatei:

Das steht im Fenster:

Code Auswählen Erweitern


1347e0


und das im log:

Code Auswählen Erweitern


R:19
G:71
B:224
RGB:1347e0

Scheint also richtig zu sein.

Liegt der Fehler also beim ausführen des Befehls!? Wird der Befehl nicht durch den return-Wert direkt ersetzt, muss ich also noch eine bestimmte Konvertierung durchführen?

Oder muss der Befehl an sich anders geschrieben werden?

So:

Code Auswählen Erweitern

set  MQTT_TV_SOCKEL rgb {randomRGB}

oder so:

Code Auswählen Erweitern

fhem (set MMQTT_TV_SOCKEL rgb {randomRGB()}

oder ganz anders??

[LarsMie]

So funktioniert es:

Zuerst die Funktion für die random RGB-Werte (gibt einen zufälligen RGB-Wert als string zurück):

Code Auswählen Erweitern

sub randomRGB()
{
my $rgb;
my ($r, $g, $b) = (int(rand(256)), int(rand(256)), int(rand(256)));

$rgb = sprintf("%02x%02x%02x", $r, $g, $b);

printf "R:$r\nG:$g\nB:$b\nRGB:$rgb\n";

return ($rgb);
}

Ich habe mir dann eine extra Funktion geschrieben, in der ich nun das gewünschte device als Parameter übergebe:

Code Auswählen Erweitern

sub setRandomRGB($)
{
my $device = shift;
my $rgb = randomRGB();

{fhem("set $device rgb $rgb")};

}

Nun kann ich das device wie folgt mit einem zufälligen Farbwert setzen:

Code Auswählen Erweitern

{setRandomRGB("MQTT_TV_SOCKEL")}

Generalisiert:

Code Auswählen Erweitern

{setRandomRGB("<device>")}

Wäre natürlich schicker, das ganze in "echtem" Fhem-Code in der Befehlszeile ausführen zu können, wie ich im Eingangspost geschrieben habe.

So kann ich das ganze aber zumindest in DOIF-Anweisungen nutzen.

Edit:

@Moderatoren: Falls das hier besser in den Bereich "Codeschnipsel" passt, dann bitte Verschieben. 

[LarsMie]

Hat keiner eine idee??

[justme1968]

schau dir cmdalias an.

gruss
  andre