Per-Syntax

[RitterSport]

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.

Code Auswählen Erweitern

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")\
   }\
}


[DeeSPe]

Ich denke du musst das @ escapen:

Code Auswählen Erweitern

\@

Gruß
Dan

[RitterSport]

Vielen Dank, das passt.