TorstenA: Zeilenumbrüche suchen und finden.

Beitrag lesen

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