nicht angemeldet
Hi!
print "Content-type: text/html\n\n";
print "$doc";Lieder gehen mir hierbai die Zeilenumbrueche verloren, d.h. Netscape zeigt mir einen fortlaufenden Text an, klar der
»» tag fehlt.
Das einfachste waere, den richtigen Content-Type auszugeben. Denn was Du da an den Browser sendest, ist ja gar kein HTML, sondern normaler Text. Also:
print "Content-type: text/plain\n\n";
Wie bekomme ich nun die Datei zeilenweise eingelesen, um sie so weiterverarbeiten zu koennen.
Die direkt Antwort auf diese Frage ist allerdings, nach dem Einlesen den gesamten Text an den Zeilenumbruechen zu splitten:
@doc = split(/\n/, $doc);
Es kann aber sein, dass die Textdatei im Microsoftformat gespeichert ist, d.h. Du muesstest an /\r\n/ splitten, oder fuer das Mac-Format an /\r/. Wir hatten das Thema schonmal ausfuehrlich hier, vielleicht findet noch jemand den Thread im Archiv und gibt uns den Link. Wenn Du sicher sein kannst, dass der Text im Unix-Format vorliegt, kannst Du einfach das /\n/ als Trennzeichen voraussetzen, wie oben.
Dann kannst Du das in einem Loop wieder ausgeben:
for (@doc) {
print $_, "<BR>\n";
}
Bye, Calocybe