nicht angemeldet
Hallo Christian,
Irgendwie schon komisch: bei PHP ist das eine ganz einfache normale Funktion, für die man
kein großes Modul braucht, und bei Perl, was ja als soooo tolle Sprache in Bezug auf
Textbearbeitung angepriesen wird, braucht man dafür ein Modul und sonstwas.
Falsch. Bei PHP bemerkst du nur nicht, dass es ein "Modul" (ein echtes Modul-System gibt es in
PHP nicht) ist.
Doch, afaik gibt es schon so eine Art Modul-System. Oder was sind dann diese ganzen "extension"-Einträge in meiner php.ini? ;-)
Aber eine ganze Menge Dinge bzw. extensions können afaik in php "mitkompiliert" werden beim kompilieren des interpreters.
Oder so ähnlich ;-)
Na gut, jetzt aber noch mal zum "Thema": Ich nutze jetzt das Modul und es funktioniert auch soweit wunderbar, nur nicht, wenn ich dieses format-Zeugs benutze:
--------------START--------------------
use Text::Wrap
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";
+------------------------------+
| 30 Zeichen in der Reihe |
+------------------------------+
$Text::Wrap::columns = 30;
$trenner = "+------------------------------+";
print $trenner."\n";
my @zeilen = wrap("", "", $text);
foreach(@zeilen)
{
# Mit diesem format-Zeugs geht es nicht:
format STDOUT =
| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$_
.
write;
# Stattdessen nur "print $_;" benutztend geht es schon!?
}
print $trenner;
----------------------------ENDE-------------
Ich habe keine Ahnung, warum das mit diesem format-Zeugs nicht geht. Gibt es für dieses format-Ding keine alternative? mir gefällt nämlich auch nicht, dass es sich nicht einrücken lässt, also etwa sowas
foreach(@zeilen)
{
format STDOUT =
|.....
$_;
.
write;
}
schreiben lässt.
Bis morgen & viele griese[tm],
WauWau
ss:) zu:) ls:& fo:) de:] va:) ch:° n4:( rl:( br:^ js:| ie:% fl:{ mo:|
Self ist der WauWau