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.



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

<!--EDIT|Thorium|1061297815-->

Kennst Du schon Text::Wrap -? 8)

Ich schreib gerade ein Perl-Regex-Tutorial, da hätt ich lieber den Ausdruck und ned ein Modul ;)

[quote=Thorium,20.08.2003, 15:51]Ich schreib gerade ein Perl-Regex-Tutorial, da hätt ich lieber den Ausdruck und ned ein Modul ;)[/quote]
aber es schadet nicht, sich das modul anzuschauen.
lies den code, versteh ihn, und verwende ihn. =)

Dann solltest du in das Tutorial auch hineinschreiben, dass es dafuer schon (mindestens) ein Modul gibt. ;-)

[quote=pq,20.08.2003, 15:55]aber es schadet nicht, sich das modul anzuschauen.
lies den code, versteh ihn, und verwende ihn. =)[/quote]
Hast DU es dir schonmal angeschaut? Ich ja, und es verwendet eine Reihe von Regex. Mit einer Vielzahl if's und elses.. ich mein, das is zwar ok, aber nicht das was ich suche.
Und auch ist es nicht nötig zu sagen, dass es ein Modul dafür gibt, da Module nicht das Thema sind, sondern die Zeile nur ein Beispiel für Regexes sein soll...
...
Dann schau ich eben selber...

$width=80;
$_ = join "", <STDIN>;

while(length > $width || /\n/){
(s%^(.{1,$width})\n%%) or # wrap at newline
s%^(.{1,$width}) +%% or # wrap at space (which will be removed)
s%^(.{1,$width}[,\?\!\./])%% or # wrap at one of,?!./
s%^(.{$width})%%; # wrap exactly at the edge of the screen
push @lines, $1;
}

print "$_\n" for @lines;