Hallo Klaus,
warum dann nicht
$s = join("\n",split('\n+', $s))."\n";
oder
$s =~ s/\n+/\n/gm;
Hm, warum nicht gleich beim Einlesen prüfen:
open(DATEI, "test.log") || die $!;
while(<DATEI>) {
unless($_ =~ /^\n$/) {
push(@zeilen, $_);
}
}
Den RegEx müsste man natürlich noch anpassen. Naja, ist nur so 'ne Idee...
Grüße
Torsten
--
Feed your ears: http://www.siechfreds-welt.de/vivosomuertos.html
Feed your ears: http://www.siechfreds-welt.de/vivosomuertos.html