Perl Regex und die Frage nach dem ;

[CoolTux]

Hallo,

Ich habe i Code von fhem.pl folgenden Eintrag gefunden

Code: [Auswählen]

=~ m/^$_$/; } split(":", $cl);Mich wundert ein wenig das erste ;

Code: [Auswählen]

=~ 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

[rudolfkoenig]

Ueberfluessiger Befehlstrenner?

[CoolTux]

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

[rudolfkoenig]

Na richtig ist so 'ne Sache.
In { Log 1, "Hallo"; } kann man das ; auch weglassen, wird aber deswegen nicht "richtiger".

[CoolTux]

Ah jetzt verstehe ich wie Du auf "Ueberfluessiger Befehlstrenner?" kommst.

Also die ganze Zeile sieht ja so aus

Code: [Auswählen]

my @fnd = grep { $hash->{TYPE} =~ m/^$_$/; } split(":", $cl);
für mich gibt ein Befehlstrenner da keinen Sinn. Übersehe ich etwas.

[herrmannj]

jetzt besser?:

Code: [Auswählen]

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

[CoolTux]

jetzt besser?:

Code: [Auswählen]

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.