Text splitten

[seth]

gudn tach!

ich suche eine "elegante" Möglichkeit, einen beliebigen Text nach folgenden Kriterien in Teiltexte aufzuteilen:

1. Zwischen der 40. und 50. Stelle aufteilen an der ersten dort auftretenden
      Leerstelle.
      Falls dort keine Leerstelle, an der nach der 50. Stelle brutal trennen.
2. Mit dem Text nach der Trennung verfahren wie unter 1.
   Habt Ihr eine Idee oder gar ein ähnliches Beispielprogramm?

fuer den anfang waere vielleicht http://search.cpan.org/perldoc?Text::Wrap etwas fuer dich.

wenn du's aber alles von hand programmieren willst, waere ein vorschlag:

$_ = $string;  
my $out = '';  
while(/\G(.{40}\S{0,10})/gc){  
  $out.= $1,"\n";  
}  
$out.= substr $_, pos;

hab's nicht ausprobiert. so in etwa koennte es aber funzen.

erklaerung der while-zeile gibt es in
http://perldoc.perl.org/perlre.html (grundlagen) und
http://perldoc.perl.org/perlop.html (beispiel)

prost
seth