Whatsapp zu Text to Speech

[nocomment]

Also so gehts nicht

Code Auswählen Erweitern

Gruppe.Access:message.* {
if( $EVENT eq "message: tür") {
   fhem ("set Gruppe.Access send OK, Tür wird geöffnet!");
   fhem ("set Whatsapp.do tuer");
} elsif($EVENT eq "message: away") {
     fhem("set Gruppe.Access send OK, Wohnung wird in 10 Sekunden verriegelt");
     fhem("set Whatsapp.do away");
} elsif( $EVENT eq "message: licht an") {
     fhem("set Gruppe.Access send OK, Alle Lichter an");
     fhem("set Whatsapp.do lichtan");
} elsif( $EVENT eq "message: licht aus") {
     fhem("set Gruppe.Access send OK, Alle Lichter aus");
     fhem("set Whatsapp.do lichtaus");
} elsif( $EVENT eq "message: status") {
     fhem("set Gruppe.Access send OK, es sind draußen ".ReadingsVal("Temperatur_Aussen","temperature",99));
     fhem("set Whatsapp.do pause");
} elsif( $EVENT =~ m/message: Speech(.*)/) {
     my $txt = $1;
     fhem("set Gruppe.Access send Wird vorgelesen: "print $txt);
     fhem("set MyTTS tts "print $txt);
} else {
     fhem("set Gruppe.Access send Wie bitte? Kommando nicht gefunden.");
}
}

Wenn ich das nicht mal ohne Hilfe hinbekomme, dann wird es nichts mit dem Script selber schreiben..

gibt auch dumme Menschen, wie mich.

[justme1968]

wie kommst du auf print?

Code Auswählen Erweitern

    fhem("set Gruppe.Access send Wird vorgelesen: $txt");
    fhem("set MyTTS tts $txt");


gruss
  andre

[nocomment]

Super, funktioniert.

Naja print um eine variable ausgeben zu lassen.


Dankeschön für die Hilfe!

[marvin78]

Und jetzt nutze die freie Zeit und nehme ein Perl Handbuch zur Hand!