abarbeitung einer Befehlssequenz zum einschalten eines TV

[andi11]

Guten Morgen,
gibt es eine Möglichkeit folgenden Code so zu schreiben dass er besser lesbar bleibt? Ein Zeilenumbruch innerhalb von Perl würde schon etwas bringen.

Code Auswählen Erweitern

if ($EVENT eq "on") {
  fhem ("set irempfaenger_Wohnzimmer commandSend samsungtv_poweron; sleep .1; set avreceiver_Wohnzimmer on; set irempfaenger_Wohnzimmer commandSend  satreciever_poweron; sleep 10; set tv_Wohnzimmer HDMI1; sleep .1; set avreceiver_Wohnzimmer input hdmi1");
}elsif ($EVENT eq"off") {
  fhem("set tv_Wohnzimmer POWEROFF; set avreceiver_Wohnzimmer off; set irempfaenger_Wohnzimmer commandSend  satreciever_poweron;");
}
}

Die ganzen set Kommandos hintereinander brauche ich, da ich z.b. erst TV einschalten will, und dann nach einer Pause eben dort den Eingang wechsel.
Allerdings verliere ich so sehr schnell den Überblick. Mit folgendem wäre die Abarbeitung aber ja komplett anders oder?

Code Auswählen Erweitern


set irempfaenger_Wohnzimmer commandSend samsungtv_poweron; sleep .1;
set avreceiver_Wohnzimmer on;
set irempfaenger_Wohnzimmer commandSend  satreciever_poweron;sleep 10;

[CoolTux]

Schreib doch mit Zeilenumbruch

Code Auswählen Erweitern


    if ($EVENT eq "on") {
           fhem ("set irempfaenger_Wohnzimmer commandSend samsungtv_poweron;
                       sleep .1; set avreceiver_Wohnzimmer on; set irempfaenger_Wohnzimmer commandSend  satreciever_poweron;
                       sleep 10; set tv_Wohnzimmer HDMI1;
                       sleep .1; set avreceiver_Wohnzimmer input hdmi1");

    }elsif ($EVENT eq"off") {
                     fhem("set tv_Wohnzimmer POWEROFF; set avreceiver_Wohnzimmer off; set irempfaenger_Wohnzimmer commandSend  satreciever_poweron;");
    }


Wieso steht eigentlich ein Punkt vor der 1 gleich nach dem sleep?

[andi11]

Vielen Dank.

Wieso steht eigentlich ein Punkt vor der 1 gleich nach dem sleep?

Um 0.1s Pause zu machen.