Reguläre Ausdrücke in Perl

[Frankdfe]

Hallo!

Ich habe einen Text, z.B. "3:jdUkdUl" und möchte nun mit regulären Ausdrücken alles entfernen, das vor dem "U" kommt. Wie mache ich das?

Probiert habe ich:

my $a = "3:jdUkdUl";
$a =~ s/^[.!U]*U//;

Aber das hat nicht funktioniert.

 

[GH@NDI]

Um bestimmte zeichenblöcke zu verneinen musste ein ^ voransetzen anstatt einem !.

so gehts:

my $string = "3:jdUkdUl";
$string =~ s/^[^U]*//;

Funktioniert so aber wirklich nur auf das erste groß U!

Ausserdem sollte man $a und $b nicht als Variablen verwenden, weil die für die Funktion sort reserviert sind.

 

[Frankdfe]

Funktioniert. Danke