Perl: Frage zu reg. Ausdrücken

[juedan]

Hallo Forum,

im Moment stehe ich vor einem Problem, das ich gerne mit einer RegEx lösen möchte, aber ich nicht weiter weiß

In einer Zeichenkette habe ich folgende Ausdrücke:
BLSN Q1011 BLU/BLU/ TEMPO BLU BECMG BLACK

Als Ergebnis möchte gerne das BL von BLSN haben, aber nicht das BL von BLU, BLU/, BLU/BLU/ oder BLACK.

Wie sieht die RegEx aus? Im Moment habe ich das hier:

my $pat_colorcode = "(BLU/BLU/|BLU+|BLU|BLACKBLU|YLO|BLU/|GRN|AMB|WHT|BLACK|RED)";

um u.a. BLU herauszuholen. Das funktioniert bei BLU auch sehr gut, bei BLU/BLU/ und BLU/ nicht mehr

Bitte um Hilfe und Danke schon mal dafür.

JueDan

 

[juedan]

Hallo Forum,

Hallo Forum,

im Moment stehe ich vor einem Problem, das ich gerne mit einer RegEx lösen möchte, aber ich nicht weiter weiß

In einer Zeichenkette habe ich folgende Ausdrücke:
BLSN Q1011 BLU/BLU/ TEMPO BLU BECMG BLACK

Als Ergebnis möchte gerne das BL von BLSN haben, aber nicht das BL von BLU, BLU/, BLU/BLU/ oder BLACK.

Wie sieht die RegEx aus? Im Moment habe ich das hier:

my $pat_colorcode = "(BLU/BLU/|BLU+|BLU|BLACKBLU|YLO|BLU/|GRN|AMB|WHT|BLACK|RED)";

um u.a. BLU herauszuholen. Das funktioniert bei BLU auch sehr gut, bei BLU/BLU/ und BLU/ nicht mehr

Bitte um Hilfe und Danke schon mal dafür.

JueDan

Die Antwort gebe ich mir jetzt mal selber
Das Problem war, dass ich vergessen hatte oben genannten RegEx als Ausnahme mit einem anderen RegEx zu verknüpfen:

elsif ($m =~ m/^$pat_wettertyp$/ && !($m =~ /^$pat_wettertyp_ausnahme$/))

Der Code wird jetzt sauber geparst, was will ich mehr: Ergebnis

Danke für die Aufmerksamkeit

JueDan