Hallo,
wie bekomme ich das @ in dem Perlausdruck unten zum laufen? So wie es dort steht bekomme ich eine Fehlermeldung.
Probiert habe ich @@ sowie mittels "my $Zeichen = @ " es vorher zu definieren.
Die Lösung ist wahrscheinlich simpel, aber ich finde mit google keine Lösung.
define Fritz_Box_notify4 notify Fritz_Box:event:.ring { \
my $extcon = ReadingsVal("Fritz_Box", "external_connection", undef);;\
my $extnum = ReadingsVal("Fritz_Box", "external_number", undef);;\
my $intnum = ReadingsVal("Fritz_Box", "internal_number", undef);;\
if ($intnum eq "XXXXXXX"){\
fhem("set JabberClient msg [color=red]XXXXXXX@jabber.de[/color] Anruf Festnetz von $extnum")\
}\
}
Ich denke du musst das @ escapen:
\@
Gruß
Dan
Vielen Dank, das passt.