Perl Code in Variable

[TWART016]

Hallo,

ich würde gerne Perl Code in eine Variable übergeben und später aufrufen:

Code Auswählen Erweitern

if (ReadingsVal("Smart_Home_Calview",$readingSummary,"") eq "test456") {$text = "SendMail("FHEM", "Nachricht", "name\@outlook.de")"};
Später soll dann der Perl Code in einem at aufgerufen werden.

Code Auswählen Erweitern

fhem ("defmod Name at Uhrzeit $text");

Allerdings wird in das At nur der ausgeführt Code angezeigt und nicht der SendMail Befehl.

Code Auswählen Erweitern

-1


Gruß
TWART016

[Ellert]

Du müsstest die inneren Anführungszeichen maskieren \" oder einfache Anführungszeichen verwenden ', da Du zwei Ebenen hast.

Code Auswählen Erweitern

{$text = 'SendMail("FHEM", "Nachricht", "name\@outlook.de")'};

[TWART016]

Wie kann ich dann in der Nachricht eine Variable mitgeben?

[Ellert]

Code Auswählen Erweitern

{$text = 'SendMail("FHEM", '.$nachricht.', "name\@outlook.de")'};

[TWART016]

Da kommt ein Fehler:

Code Auswählen Erweitern

syntax error at (eval 3062822) line 28, near "$readingSummary', "name\@outlook.de")}'"

Code Auswählen Erweitern

{$text = '{SendMail("FHEM", '.$readingSummary', "name\@outlook.de")}'};

[amenomade]

Versuch mal die Logik zu verstehen. "." ist zur Konkatenation von Strings
Dann musst Du 'String' . $variable . 'String' schreiben, wie Ellert es gemacht hat, und Du nicht.

[TWART016]

Das habe ich gemacht.

Code Auswählen Erweitern

{$text = '{SendMail('FHEM', 'test' .$readingSummary .'test2', 'name\@outlook.de')}'};

Trotzdem der Fehler

Code Auswählen Erweitern

Bad name after FHEM' at (eval 3116221) line 28.

[Otto123]

{$text = '{SendMail('FHEM', 'test' .$readingSummary .'test2', 'name\@outlook.de')}'};

Am Ende hast Du alles nochmal in ' ' stehen, da werden keine Variablen aufgelöst.
Mit "" kann das gehen. Allerdings bei der Kette bin ich unsicher.

Ich habe vor allem noch nicht verstanden wann den wirklich die Variable aufgelöst werden soll?
Beim Schreiben nach $text ?
Oder beim Befehl defmod?

Ich glaube Du machst es Dir sehr schwer. Ich hatte mir dazu mal was aufgeschrieben, das nehme ich immer mal her. Stelle dann aber fest ich habe auch nicht alle Varianten erfasst.

Ich rate Dir: Nimm die FHEM Kommandozeile, dort kannst Du in {Perl Befehle} Perl Befehle ausführen. Nimm kurze Strings und taste Dich vorwärts. Das hilft glaub mir.

Gruß Otto

[amenomade]

Code Auswählen Erweitern

$text = '{SendMail('FHEM', 'test' .$readingSummary .'test2', 'name\@outlook.de')}'
Langsam und Schritt für Schritt

Code Auswählen Erweitern

'{SendMail('Das ist ein String. OK

Code Auswählen Erweitern

FHEMDas ist nichts, Perl versteht es nicht

Code Auswählen Erweitern

', 'Das ist das nächste String. OK

Code Auswählen Erweitern

testDas ist nichts. Perl versteht es nicht

Code Auswählen Erweitern

' .$readingSummary .'Das ist ein String. OK, aber da single quotes und nicht double quotes wird die Variabel nicht esetzt

Code Auswählen Erweitern

test2Das ist nichts. Perl versteht es nicht

Code Auswählen Erweitern

', 'Das ist ein String. OK

Code Auswählen Erweitern

name\@outlook.deDas ist nichts. Perl versteht es nicht

Code Auswählen Erweitern

')}'Das ist ein String. OK, aber Perl fehlen einige schliessenden Zeichen...