Brauche Hilfe bei RegEx

[AlexBausW]

Hallo,

schön das ihr wieder da seid ;-)

ACK

[Text-Wrapper]

Ich glaube mit einem regulären Ausdruck wie in s/([\w \t]){0,30} /$1\n/g; ist es imho nicht getan, weil damit andere "ungeahnte" Probleme auftreten (z.B.: letzte Zeile). Nach einem besseren Ausdruck habe ich auch nicht weiter gesucht.

Die zweite Möglichkeit besteht darin, Deinen Text an Leerzeichen zu split()en und die Bruchstücke anschließend wieder zu Teilen kleinergleich 30 Zeichen zu verknüpfen.

Am besten aber ist sicherlich Text::Wrap zu verwenden. Du musst nur hinterher die Umbrüche (bzw. den Wert aus $Text::Wrap::separator) zählen, um auf die Zeilenzahl zu kommen.

Gruß Alex