strings in array löschen - #160855 (Allgemeines zu Perl)

Muffi

2012-08-13 14:00

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

1
2
3

my $alles = join('', @lines);
$alles =~ s/\/\*.+?\*\//gs;
my @new_lines = split(/\n/, $alles);

Funktioniert allerdings nicht, wenn \n's in einer Zeile sind seh ich grad. Ich ging irgendwie automatisch von Zeilen aus Textdatei eingelesen aus.
Last edited: 2012-08-13 14:06:18 +0200 (CEST)

1 + 1 = 10