WordWrapper Regex: Für Perfektionisten - #70462 (Allgemeines zu Perl)

Thorium

2003-08-19 16:56

User since
2003-08-04
232 Artikel
BenutzerIn

Ich frage mich gerade wie man eine Regex zu einem WordWrapper umfunktioniert. Er soll also nach einer gewissen Anzahl zeichen nach einem whitespace einen Zeilenumbruch anfügen. Besteht die ganze Zeile aus einem Wort (also ohne \s) ist an der grenze das Wort zu trennen.

Code: (dl )

1
2

my $wrap = 120;
$langezeile =~ s/^(?:(.{0,$wrap}\s+)|(.{$wrap}))/$1$2\n/g;

naja das sieht mir noch nicht so schön aus, vorallem $1$2... Da gibts doch sicher ne schönere Lösung...\n\n

Per|li|nist der; -en, -en <zu â...ist>: a) AnhÃ¤nger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.