Überflüssige, leere Zeilen entfernen - #65049 (Allgemeines zu Perl)

Dubu

2006-04-18 19:38

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Code: (dl )

$text =~ s/^\n+(.*?)\n+$/$1/s;

Wenn ich das Problem richtig verstanden habe.

Edit: /s vergessen!\n\n