[GELÖST!] Pluszeichen (+) verschwindet aus String

[DocCyber]

Hallo zusammen,

hat jemand eine Idee, warum das Pluszeichen (hinter at) im nachfolgenden Ausdruck (Teil eines Perl-Codes) ignoriert wird?

Code Auswählen Erweitern


  ...
  my $t = sprintf("%02d", ReadingsVal("settings","timeout","0"));
  my $cmd = "define myTimer at +00:" . $t . ":00 set myDevice locked 0";
  ...


Ausgabe für $cmd für settings:timeout = 3 Minuten

Code Auswählen Erweitern


  define myTimer at  00:03:00 set myDevice locked 0


Das Pluszeichen wurde durch ein Leerzeichen ersetzt. Damit ist der Ausdruck für mich wertlos.
Ich weiß nicht, wie ich das verhindern kann.


Es ist übrigens interessant, dass das nicht passiert, wenn man den Ausdruck durch die fhem-Befehlszeile auswerten lässt.

[Beta-User]

Meine Idee: "Quotes in Perl"...
Es wir vermutlich extrapoliert, da du nur "doppelte Quotes" verwendest. Und dann wird das ggf. als Rechenoperation aufgefasst.

[DocCyber]

Naja, das stimmt - aber wie sollte ich das in diesem Fall anders machen?
Das Ergebnis ändert sich nicht, wenn ich single quotes verwende.

Edit: Backslash vor dem Pluszeichen hilft auch nichts.

[betateilchen]

In der FHEM Befehlszeile eingegeben:

Code Auswählen Erweitern

{my $t = "03";; my $cmd = "define myTimer at +00:" . $t . ":00 set myDevice locked 0";; return $cmd}

erhalte ich folgendes Ergebnis:

Code Auswählen Erweitern

define myTimer at +00:03:00 set myDevice locked 0

[Beta-User]

Naja, das stimmt - aber wie sollte ich das in diesem Fall anders machen?
Das Ergebnis ändert sich nicht, wenn ich single quotes verwende.

Also hattest du getestet:

Code Auswählen Erweitern

my $cmd = 'define myTimer at +00:' . $t . ':00 set myDevice locked 0';

Oder auch sowas:

Code Auswählen Erweitern

my $cmd = qq{define myTimer at +00:$t:00 set myDevice locked 0};
bzw.

Code Auswählen Erweitern

my $cmd = q{define myTimer at +00:};
$cmd .= $t;
$cmd .= ':00 set myDevice locked 0';

@betateilchen:

Es ist übrigens interessant, dass das nicht passiert, wenn man den Ausdruck durch die fhem-Befehlszeile auswerten lässt.

Daher stellt sich die Frage, was @DocCyber danach mit dem String noch anstellt...

[betateilchen]

An welcher Stelle besteht denn das Problem?

Code Auswählen Erweitern


sub test {
  my $t = "03";
  my $cmd = "define myTimer at +00:" . $t . ":00 set myDevice locked 0";
  return $cmd;
}


liefert auch das korrekte Ergebnis.

Mich würde interessieren, wie der Code

Code Auswählen Erweitern


  ...
  my $t = sprintf("%02d", ReadingsVal("settings","timeout","0"));
  my $cmd = "define myTimer at +00:" . $t . ":00 set myDevice locked 0";
  ...


weitergeht.

[DocCyber]

In der FHEM Befehlszeile eingegeben:

Code Auswählen Erweitern

{my $t = "03";; my $cmd = "define myTimer at +00:" . $t . ":00 set myDevice locked 0";; return $cmd}

erhalte ich folgendes Ergebnis:

Code Auswählen Erweitern

define myTimer at +00:03:00 set myDevice locked 0

Ja, das stimmt - hatte ich ja auch geschrieben. Aber der Perl-Code ersetzt das Pluszeichen durch ein Blank.

[betateilchen]

Ja, das stimmt - hatte ich ja auch geschrieben.

ja, das habe ich inzwischen auch gelesen.

Aber der Perl-Code ersetzt das Pluszeichen durch ein Blank.

Dann zeig doch mal den Perl Code, der das Deiner Meinung nach tut.
Die beiden von Dir genannten zwei Zeilen ersetzen jedenfalls nichts.

[DocCyber]

Code Auswählen Erweitern


  ...
  my $t = sprintf("%02d", ReadingsVal("settings","timeout","0"));
  my $cmd = "define myTimer at +00:" . $t . ":00 set myDevice locked 0";
  ...


weitergeht.

Ich hatte hier (für's Forum) den Code etwas vereinfacht, um auf den Punkt zu kommen.
Tatsächlich sieht der Code nicht wesentlich komplizierter aus:

Code Auswählen Erweitern


sub lockWallbox() {
# Zweck:          blockiert das Setzen einer anderen Ladestromstärke für einen bestimmten Zeitraum
# Aufruf durch:   notify n_wallboxLocked
  my $t = sprintf("%02d", ReadingsVal("wallboxSettings","timeout","5"));
  my $cmd = "define timer at +00:" . $t . ":00 setreading wallboxSettings locked 0";
  debug("lockWallbox", $cmd);
  fhem("setreading wallboxSettings locked 1");
  fhem($cmd);
}


der debug-Aufruf zeigt im Eventmonitor den Wert von $cmd, und dort fehlt das Pluszeichen.
Das wäre mir ja noch egal, wenn das at trotzdem korrrekt gesetzt würde...
EDIT: at wird tatsächlich korrekt gesetzt (hab's übersehen  ) - aber debug() zeigt es nicht richtig an. Damit besteht das Anzeigeproblem zwar weiter (kein Ahnung, warum) , aber das Wichtigste funktioniert.

Danke, @betateilchen.

Zur Info:

Code Auswählen Erweitern


sub debug($$) {
  my $func = shift;   # Name der aufrufenden sub
  my $msg = shift;   # Meldung
  my $txt = "[$func] $msg";
  fhem("set DBG $txt");
}


Ich hatte zwischenzeitlich auch mit Backslash experimentiert. Nutzt nichts, der Backslash wird dann ebenfalls durch ein Blank ersetzt.

[betateilchen]

Wo kommt denn die Funktion debug() her und was steht da drin?

[betateilchen]

Popcornmaschine läuft...

[DocCyber]

Wo kommt denn die Funktion debug() her und was steht da drin?

s. EDIT weiter oben.

Popcorn: süß oder salzig? 
Wohl bekomm's

[betateilchen]

Verwende doch einfach

Code Auswählen Erweitern

Debug $cmd; dann findest Du die korrekte Ausgabe im Logfile.

So wirklich kooperativ bist Du hier nicht.
Das nachträgliche Editieren Deiner Beiträge nervt maßlos.

Wenn Du eine Antwort auf eine Frage geben möchtest, dann tu das bitte als Antwort und nicht als Edit.

Over & Out.

[DocCyber]

Ich wollte nicht unkooperativ sein.
Sorry wenn es anders rpbergekommen ist.

Danke für den Tipp mit Debug - kannte ich nicht, deshalb hab ich mir selbst was geschrieben.