Zeilen aus Text löschen, die bestimmten String nicht beinhalten

[Sven Rautenberg]

Hallo Matti!

Die zweite Lösung gefällt mir - und funktioniert. Ich werde mich mal damit beschäftigen, um sie auch zu verstehen. Vielen Dank!

He, da kann ich noch über:

$text = join ("\n",($text =~ /\n([^\n]*$relevant[^\n]*)/g ));

Ungetestet, kryptisch und ohne Garantie, aber IMO sieht das ganz gut aus. :)

Wenn vorne und hinten auch noch Newlines ransollen:
$text = "\n" . join ("\n",($text =~ /\n([^\n]*$relevant[^\n]*)/g )) . "\n";

- Sven Rautenberg