Regulärer Ausdruck - Klammern entfernen - #142044 (Allgemeines zu Perl)

topeg

2010-10-19 14:31

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $text = 'Start ... irgendwas ( wieder_ein_text ( noch_ein_text ) hjghjghj) irgendwas (fghkldfkgh) ... Ende';

while($text=~s/\([^()]*\)//gs){}

print "$text\n";

Es geht auch mit einer komplexen RegExp, aber das sollte wohl reichen, wenn es nur um das löschen geht. :-)