elegante Lösung für Sonderzeichen, um Devicestatus per Perl zu setzen

[jannis]

Mein Ziel: Ich möchte beliebige Zeichen per Perl in den Status meines Devices eintragen. Zum Testen habe ich ein Device:

defmod testdevice dummy

... eine Funktion, die ich in 99_myUtils.pm einfüge:

Code Auswählen Erweitern

sub setzeTestdevice($) {
  my ($meldung) = @_;
  fhem("set testdevice $meldung");
}

Und dann rufe ich in der fhem-Kommandozeile auf:

Code Auswählen Erweitern

{setzeTestdevice("Sonderzeichen ,.'#:;§$%&/ und was passiert hier: hier bei der Ausgabe?")}

Und dann kommen Fehlermeldungen wie:

Code Auswählen Erweitern

Unknown command {setzeTestdevice(

Klar, die Sonderzeichen sorgen für Irritation.
Ich habe schon zum Teil erfolgreich versucht mit Perlersetzungen ala

Code Auswählen Erweitern

$meldung=~s/:/\:/g
die Probleme in der Ausgabe zu beheben und habe immer mehr Ersetzungen eingefügt. Aber das kann es ja nicht sein und der fhem-Weg ist bestimmt wieder mal viel einfacher: Wie geht's?

[amenomade]

Minimum: Semikolon verdoppeln. Das reicht aber nicht. Dein einziges Problem ist aber das Semikolon (das als Kommando-Trennzeichen interpretiert wird)

EDIT: das Semikolon muss viermal, da zwei Ebenen von Kommandos:

Code Auswählen Erweitern

{setzeTestdevice("Sonderzeichen ,.'#:;;;;§$%&/ und was passiert hier: hier bei der Ausgabe?")}

[Otto123]

Aber das hier geht doch nicht:

("Sonderzeichen ,.'#$%&/ und was passiert hier: hier bei der Ausgabe?")

Innerhalb von " wird doch aufgelöst/evaluiert da muss jedes $ als \$ stehen und ein einzelne ' gehen gar nicht!

was ist mit

Code Auswählen Erweitern

q(Sonderzeichen ,.'#:;;;;§$%&/ und was passiert hier: hier bei der Ausgabe?) ?

Funktioniert bei mir

Code Auswählen Erweitern

{fhem('set w1 '.q(Sonderzeichen ,.'#:;;;;§$%&/ und was passiert hier: hier bei der Ausgabe?))}

Edit: ; bleibt ein Problem

[amenomade]

Code Auswählen Erweitern

{setzeTestdevice("Sonderzeichen ,.'#:;;;;§$%&/ und was passiert hier: hier bei der Ausgabe?")}
funktioniert auch mit der sub, wie er sie geschrieben hat

EDIT: Aber das ist "Zufall". Das funktioniert nur, weil %&/ kein gültiger Name für eine Variable ist. Dann gibt der Perl Interpreter auf.
Sonst hast Du recht. $ muss durch \$ escaped werden
Einzelne ' in einem String gehen.

[Otto123]

Ich halte das Ansinnen:

Ich möchte beliebige Zeichen per Perl in den Status meines Devices eintragen.

Für sehr ambitioniert 

[jannis]

Funktioniert bei mir

Code Auswählen Erweitern

{fhem('set w1 '.q(Sonderzeichen ,.'#:;;;;§$%&/ und was passiert hier: hier bei der Ausgabe?))}

Edit: ; bleibt ein Problem

Mit dem "q(" könnte ich leben. Nur kommt die Ausgabe aus der Variable $meldung

Code Auswählen Erweitern


my $meldung = "Sonderzeichen ,.'#:;;;;§$%&/ und was passiert hier: hier bei der Ausgabe?";
{fhem('set w1 '.q($meldung))}

da wird dann ausgegeben:

Code Auswählen Erweitern

$meldung"

gibt es irgendwo eine perl-x-fhem-Selbsthilfegruppe wo man sich psychisch nach einem Tag wie heute, wo außer ausprobieren und lesen nicht viel rausgekommen ist, wieder aufrichten lassen kann 

[Otto123]

Code Auswählen Erweitern

{my $meldung = q(Sonderzeichen ,.'#:;;;;§$%&/ und was passiert hier: hier bei der Ausgabe?);;fhem('set w1 '.$meldung)}

https://perldoc.perl.org/perlop#Quote-Like-Operators

[jannis]

Code Auswählen Erweitern

{my $meldung = q(Sonderzeichen ,.'#:;;;;§$%&/ und was passiert hier: hier bei der Ausgabe?);;fhem('set w1 '.$meldung)}

https://perldoc.perl.org/perlop#Quote-Like-Operators

da kam leider immer noch "$meldung" als Ergebnis heraus. Aber was dann funktionierte war: "qq", also:

Code Auswählen Erweitern

{my $meldung =q q(Sonderzeichen ,.'#:;;;;§$%&/ und was passiert hier: hier bei der Ausgabe?);;fhem('set w1 '.$meldung)}

Warum? Weiß nicht. Aber so kann ich weitermachen 

[amenomade]

q => die Variablen werden nicht interpretiert. Ist gleich '  '
qq => die Variablen werden interpretiert. Ist gleich "  "

Allerdings ist es unmöglich, dass mit dem Code von Otto immer noch "$meldung" kommt. Da hast Du entweder die quotes nicht an der richtigen Stelle im fhem Befehl gesetzt, oder Du machst etwas anderes als was Otto schrieb.

Mit qq: da die Variablen interpretiert werden, musst Du noch unbedingt $ escapen (siehe oben). Und die % wahrscheinlich auch.

[jannis]

Mit qq: da die Variablen interpretiert werden, musst Du noch unbedingt $ escapen (siehe oben). Und die % wahrscheinlich auch.

Du hast recht, auch  % und $ müssen escapt werden. Habe beim Ersetzen Verdopplungen und Vervierfachungen wie beim ";" probiert ... ohne Erfolg.

und auch hiergegen wehrt sich fhem bzw. lässt die beiden Sonderzeichen einfach weg.

Code Auswählen Erweitern

  $meldung=~s/\$/\$/g; # Dollarzeichen
  $meldung=~s/\%/\%/g; # Prozentzeichen

Und wenn zu den beiden auch noch das doppelte Anführungszeichen gehen würde .... aber das beißt sich ja wahrscheinlich mit qq.  Dann würd ich mir halt merken, kein " zu nutzen.

[amenomade]

Code Auswählen Erweitern

$meldung=~s/\$/\$/g; ersetzt $ durch $. Macht keinen Sinn.

Code Auswählen Erweitern

s/\$/\\\$/gwürde mind. $ durch \$ ersetzen.

[jannis]

Code Auswählen Erweitern

$meldung=~s/\$/\$/g; ersetzt $ durch $. Macht keinen Sinn.

Code Auswählen Erweitern

s/\$/\\\$/gwürde mind. $ durch \$ ersetzen.

So nach ich das und "Sch**ße auf % und "
Muss ich mir halt merkem, Prozent auszuschreiben und einfache ' zu nehmen

[jannis]

... und seh gerade

$meldung=~s/\$/\\\$/g;      # Dollarzeichen

geht nicht ... $ wird trotzdem geschluckt

[Otto123]

Ich halte das Ansinnen: Für sehr ambitioniert 

[amenomade]

... und seh gerade
geht nicht ... $ wird trotzdem geschluckt

Das ist abhängig, wo und wie Du es machst. Wenn Du immer noch über deine Funktion gehst, dann ist natürlich $xxx schon beim Aufruf der Funktion weg. Schon vor dem Aufruf muss $ in der Zeichenkette escaped werden.

Ich wundere mich übrigens, warum Du keine Fehlermeldung in der Log hast. Hast Du mal dort geschaut?