Zeilenumbruch erzwingen oder Perl Mittel nutzen

[jonny]

Hallo nochmal Ziegenmelker,

jetzt weiß ich nicht so recht, ob ich mich selber übertroffen habe.

my $string="DiesisteinTest!";
$string=~s/(.{7})/\1<br>/;
print "$string\n";

Diesist<br>ein Test!

my $string="DiesisteinTest!DiesisteinTest!DiesisteinTest!DiesisteinTest!DiesisteinTest!DiesisteinTest!";
$string=~s/(.{15})/\1<br>/g;
print "$string\n";

DiesisteinTest!<br>DiesisteinTest!<br>DiesisteinTest!<br>DiesisteinTest!<br>DiesisteinTest!<br>DiesisteinTest!<br>

Habs g drangehangen und es funzt. Wie gesagt, jetzt ist nur noch die Frage, ob es auch eine sinnvolle - komfortable - Lösung ist.

Mfg,
Jonny