[gelöst] Regex Abrage mit einer Variablen

[australien]

Hallo zusammen,

ich möchte mit einem Regex aus einem String (Abfahrtstafel des Bahnhofes) einen bestimmten Zug herausfiltern.
Bei immer dem selben Zug mache ich das so, wobei die Zugnummer 1234 ist:

Code Auswählen Erweitern

userReadings  ZugVerspaetung {ReadingsVal($name,"Bahnhof",0) =~ "1234\",\".*?\",\"(.*?)\"";;$1}

Ich will jetzt aber nicht immer den Zug 1234 abrufen, sondern eine variable Zugnummer. Diese steht in einem dummy ZugNr, einfach mit set eingetragen.
Grund dafür ist, ich brauche diese Zugnummer öffters und kann somit die Nummer zentral ändern.

Diese hier funktioniert leider nicht:

Code Auswählen Erweitern

userReadings  ZugVerspaetung {ReadingsVal($name,"Bahnhof",0) =~ [ZugNr],\".*?\",\"(.*?)\"";;$1}

danke für Eure Hilfe

[Beta-User]

Versuch's mal so (ungetestet):

Code Auswählen Erweitern

userReadings  ZugVerspaetung {my $compare = Value("ZugNr");; ReadingsVal($name,"Bahnhof",0) =~ $compare,\".*?\",\"(.*?)\"";;$1}

[australien]

klingt gut, leider bekomme ich damit folgende Fehler im log:

Code Auswählen Erweitern

2019.12.11 12:15:00 1: PERL WARNING: Useless use of a constant (SCALAR(0x93bcd10)) in void context at (eval 2781051) line 1.
2019.12.11 12:15:00 3: eval: {my $compare = Value("ZugNr");; ReadingsVal($name,"Bahnhof",0) =~ $compare,\",\".*?\",\"(.*?)\"";;$1}
2019.12.11 12:15:00 1: PERL WARNING: Use of uninitialized value $1 in subtraction (-) at (eval 2781051) line 1.
2019.12.11 12:15:00 3: eval: {my $compare = Value("ZugNr");; ReadingsVal($name,"Bahnhof",0) =~ $compare,\",\".*?\",\"(.*?)\"";;$1}

wobei direkt in FHEM eingegeben

Code Auswählen Erweitern

{my $compare = Value("ZugNr")}
den richtigen Wert aus ZugNr liefert.

gesucht wird daraus, vielleicht hilft das:

Code Auswählen Erweitern

Bahnhof

[["2634","Hbf","19"],["2635","Wulkaprodersdorf Bahnhof","54"],["2638","Hbf","79"],["2639","Wulkaprodersdorf Bahnhof","114"],["2642","Hbf","139"],["7844","Bruck/Leitha Bahnhof","164"],["2643","Wulkaprodersdorf Bahnhof","174"],["2646","Hbf","199"],["7845","Wulkaprodersdorf Bahnhof","208"],["7848","Bruck/Leitha Bahnhof","224"]]

[Beta-User]

Pack' erst mal die regex in ein eher übliches Format (immer noch ungetestet):

Code Auswählen Erweitern

userReadings  ZugVerspaetung {my $compare = Value("ZugNr");; ReadingsVal($name,"Bahnhof",0) =~ m/$compare,\".*?\",\"(.*?)\""/g;;$1}

[australien]

leider immer noch die gleiche Meldung

Code Auswählen Erweitern

2019.12.11 12:31:20 1: PERL WARNING: Use of uninitialized value $1 in subtraction (-) at (eval 2788563) line 1.
2019.12.11 12:31:20 3: eval: {my $compare = Value("ZugNr");; ReadingsVal($name,"Bahnhof",0)  =~ m/$compare,\".*?\",\"(.*?)\""/g;;$1}

[CoolTux]

Code Auswählen Erweitern

userReadings  ZugVerspaetung {my $regex = Value("ZugNr").',\".*?\",\"(.*?)\""';; ReadingsVal($name,"Bahnhof",0) =~ m/$regex/g;;$1}

Sollte das nicht gehen muss m/ und am Ende /g auch noch mit in die Variable. Aber probier erstmal so.

[australien]

Fehlermeldungen bekomme ich bei beiden nicht mehr, aber es wird auch kein Readings beschrieben, bleibt leer.
Die ZugNr ist aber mit einer vorhanden Nummer bestückt, oder reicht es nicht wenn ich diese mit

Code Auswählen Erweitern

set ZugNr 2634 zuordne?

[Beta-User]

Da ist wohl auch noch ein " zu viel (am Ende).

Code Auswählen Erweitern

userReadings  ZugVerspaetung {my $regex = Value("ZugNr").',\".*?\",\"(.*?)\"';; ReadingsVal($name,"Bahnhof",0) =~ m/$regex/g;;$1}

[australien]

liefert das gleiche Ergebnis, es wird nichts in die ZugVerspaetung geschrieben.
Wie gesagt, der Wert ZugNr ist im Bahnhof vorhanden.

[Beta-User]

...einen habe ich noch...:

Code Auswählen Erweitern

userReadings  ZugVerspaetung {my $regex = Value("ZugNr").'\",\".*?\",\"(.*?)\"';; ReadingsVal($name,"Bahnhof",0) =~ m/$regex/g;;$1}

[australien]

Bingo!!! Ihr seit super, ich habe leider von diesen RegEx überhaupt keine Ahung.

Eine Kleinigkeit hätte ich da noch dazu, von diesem Wert will ich nun noch 17 abziehen.

[australien]

selber herausgefunden, Lösung

Code Auswählen Erweitern

ZugVerspaetung {my $regex = Value("ZugNr").'\",\".*?\",\"(.*?)\"';; ReadingsVal($name,"Bahnhof",0) =~ m/$regex/g;;($1-17)}


Danke nocheinmal für Eure Hilfe!!!!