Zeichenkette von wort.. bis zu wort.. extrahieren

[Thomas Lachmann]

Hallihallo,

ich bin grade dabei mich etwas in Perl einzuarbeiten.
Aus einer Datei will ich einen String extrahieren. Und zwar von dem Wort "XXYY" bis zu dem Wort "YYXX". Der Text der dazwischen ist... Kann mir da jemand helfen??

Tnx Thomas

[Jörk Behrends]

Hallo Thomas!

ich bin grade dabei mich etwas in Perl einzuarbeiten.
Aus einer Datei will ich einen String extrahieren. Und zwar von dem Wort "XXYY" bis zu dem Wort "YYXX". Der Text der dazwischen ist... Kann mir da jemand helfen??

Kein Problem:

$text = 'abc abc YYXX irgendwas nochwas XXYY darfs ein bisschen mehr sein? XXYY nu is gut';
$text =~ /YYXX(.*)XXYY/;
$inhalt = $1;  # Inhalt der ersten Klammer

=> $inhalt = ' irgendwas nochwas XXYY darfs ein bisschen mehr sein? '
Wenn das jetzt zu viel wahr:

$text =~ /YYXX(.*?)XXYY/;
$inhalt = $1;  # Inhalt der ersten Klammer

=> $inhalt = ' irgendwas nochwas '

Durch das Fragezeichen kann man das 'gefräßige' Verhalten (greedy) vom * abschalten.

Hoffe, daß Du damit weiterkommst,
   Jörk