nicht angemeldet
Hola,
ich grübele gerade vor einem kleinen Problemchen. Ich habe irgendeinen String, z.B. sowas:
$text = "Das hier ist dann der Text, der umgebrochen werden soll und zudem noch in einen schönen kleinen Rahmen gefasst werden soll. Schön, nicht wahr?";
und das soll am Ende in sowas:
+----------------------------------+
| Das hier ist dann der Text, der |
| umgebrochen werden soll und |
| zudem noch in einen schönen |
| kleinen Rahmen gefasst werden |
| soll. Schön, nicht wahr? |
+----------------------------------+
bzw. vergleichbares. Doch irgendwie schaff ich es nicht, den String nach X zeichen umbrechen zu lassen. Am Besten also als Bruchstücke in ein Array. Hier ist mein Code, wie ich ihn bis jetzt "entwickelt" habe:
#!D:/perl/bin/perl -w
*bla*
print "Content-type: text/html\n\n";
$text = "Das hier ist dann der Text, der umgebrochen werden soll und zudem noch in einen schönen kleinen Rahmen gefasst werden soll. Schön, nicht wahr?";
print "<html><pre>\n";
+------------------------------+
| Sowas in der Art = Ergebnis |
+------------------------------+
$trenner = "+------------------------------+";
print $trenner."\n";
my @zeilen = split(/NACH-30-ZEICHEN.../,$text);
foreach(@zeilen)
{
format STDOUT =
| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$_
.
write;
}
print $trenner;
EOF
"NACH-80-ZEICHEN..." müsste hier irgendwie eben nach 30 Zeichen "trennen".
Hat jemand eine Idee, wie ich das realisieren könnte?
Vielen Dank schon mal im Vorraus :),
WauWau
ss:) zu:) ls:& fo:) de:] va:) ch:° n4:( rl:( br:^ js:| ie:% fl:{ mo:|
Self ist der WauWau