Hi,

Ich habe folgenden String und möchte diese Begriffe finden und per RegEx umformen. Nur Key soll Key bleiben

Ich hoffe folgendes Beispiel hilft dir weiter:

  
#!/usr/bin/perl -w  
  
use strict;  
  
  
my $string = 'EAEABCOPI';  
  
my $key = 'ABC';  
  
  
# sucht nach beliebigen Buchstaben gefolgt vom Inhalt von $key  
# wobei der Ausdruck in der Klammer mit ?= nichtmehr zum Ergebnis gehoert  
if ( $string =~ /([a-zA-Z]+(?=$key))/ )  
{  
    print "\nTreffer: $1\n";  
}  
else  
{  
    print "\nkein Treffer\n";  
}  
  
  
# alles vor $key mit nichts ersetzen  
$string =~ s/([a-zA-Z]+)(?=$key)//;  
  
print "\nString danach: $string\n";  
  
  

mfG,
steckl