Autor Thema: Perl Regex und die Frage nach dem ;  (Gelesen 487 mal)

Offline CoolTux

  • Moderator
  • Hero Member
  • ***
  • Beiträge: 26902
Perl Regex und die Frage nach dem ;
« am: 25 April 2021, 11:11:14 »
Hallo,

Ich habe i Code von fhem.pl folgenden Eintrag gefunden

=~ m/^$_$/; } split(":", $cl);Mich wundert ein wenig das erste ;
=~ m/^$_$/;So wie ich das kenne wäre das ; ein Modifier oder Descriptior für Perl Regex. Aber da kenne ich kein ;
Kann mich da bitte jemand erhellen? Danke



Grüße
Marko
Du musst nicht wissen wie es geht! Du musst nur wissen wo es steht, wie es geht.
Support me to buy new test hardware for development: https://paypal.me/pools/c/8gULisr9BT
My FHEM Git: https://git.cooltux.net/FHEM/
Mein Dokuwiki:
https://www.cooltux.net

Offline rudolfkoenig

  • Administrator
  • Hero Member
  • *****
  • Beiträge: 24130
Antw:Perl Regex und die Frage nach dem ;
« Antwort #1 am: 25 April 2021, 20:27:00 »
Ueberfluessiger Befehlstrenner?

Offline CoolTux

  • Moderator
  • Hero Member
  • ***
  • Beiträge: 26902
Antw:Perl Regex und die Frage nach dem ;
« Antwort #2 am: 25 April 2021, 21:48:28 »
Ueberfluessiger Befehlstrenner?

Überflüssig im Sinne von stört nicht, ist aber auch nicht unbedingt richtig?

Die Zeile steht in der aktuellen fhem.pl in Zeile 2242 und gehört zur AssignIoPort Funktion
Du musst nicht wissen wie es geht! Du musst nur wissen wo es steht, wie es geht.
Support me to buy new test hardware for development: https://paypal.me/pools/c/8gULisr9BT
My FHEM Git: https://git.cooltux.net/FHEM/
Mein Dokuwiki:
https://www.cooltux.net

Offline rudolfkoenig

  • Administrator
  • Hero Member
  • *****
  • Beiträge: 24130
Antw:Perl Regex und die Frage nach dem ;
« Antwort #3 am: 25 April 2021, 22:27:34 »
Na richtig ist so 'ne Sache.
In { Log 1, "Hallo"; } kann man das ; auch weglassen, wird aber deswegen nicht "richtiger".

Offline CoolTux

  • Moderator
  • Hero Member
  • ***
  • Beiträge: 26902
Antw:Perl Regex und die Frage nach dem ;
« Antwort #4 am: 26 April 2021, 13:41:45 »
Ah jetzt verstehe ich wie Du auf "Ueberfluessiger Befehlstrenner?" kommst.

Also die ganze Zeile sieht ja so aus

my @fnd = grep { $hash->{TYPE} =~ m/^$_$/; } split(":", $cl);
für mich gibt ein Befehlstrenner da keinen Sinn. Übersehe ich etwas.
Du musst nicht wissen wie es geht! Du musst nur wissen wo es steht, wie es geht.
Support me to buy new test hardware for development: https://paypal.me/pools/c/8gULisr9BT
My FHEM Git: https://git.cooltux.net/FHEM/
Mein Dokuwiki:
https://www.cooltux.net

Online herrmannj

  • Global Moderator
  • Hero Member
  • ****
  • Beiträge: 5855
Antw:Perl Regex und die Frage nach dem ;
« Antwort #5 am: 26 April 2021, 14:26:33 »
jetzt besser?:

my @fnd = grep {
    $hash->{TYPE} =~ m/^$_$/;
} split(":", $cl);
« Letzte Änderung: 26 April 2021, 14:28:08 von herrmannj »
smartVisu mit fronthem, einiges an HM, RFXTRX, Oregon, CUL, Homeeasy, ganz viele LED + Diverse

Offline CoolTux

  • Moderator
  • Hero Member
  • ***
  • Beiträge: 26902
Antw:Perl Regex und die Frage nach dem ;
« Antwort #6 am: 26 April 2021, 14:29:18 »
jetzt besser?:

my @fnd = grep {
    $hash->{TYPE} =~ m/^$_$/;
} split(":", $cl);

Ah ein Licht geht sowas von auf. Ich habe mich da zu sehr ablenken lassen. { } verstehe ich jetzt ganz anders. Danke Euch.
Du musst nicht wissen wie es geht! Du musst nur wissen wo es steht, wie es geht.
Support me to buy new test hardware for development: https://paypal.me/pools/c/8gULisr9BT
My FHEM Git: https://git.cooltux.net/FHEM/
Mein Dokuwiki:
https://www.cooltux.net
Gefällt mir Gefällt mir x 1 Liste anzeigen

 

decade-submarginal