nicht angemeldet
Bitte mit Perl - Danke !!!! Riesen Dank!!!
Gruss
Detlef
ganz einfach - ohne Module (zB. CGI.pm) ohne Wert auf Eleganz etc. zu legen:
#!usr/local/bin/perl -w
open DATEI,"c:\perlscripts\datei.txt"; #Datei öffnen
@dat = <DATEI>; # gesamte Datei einlesen
close DATEI; #Datei schließen
my $textalt;
my $textneu="";
foreach $textalt (@dat){
$textalt=~ s/\n/<br>/g; #Zeilenümbrüche in HTML-Tags umwandeln
$textneu .= $textalt; # Ausgabetext zusammenstellen
}
#es folgt die Ausgabe der Seite
print <<"EOT";
Content-type: text/html
<HTML>
<BODY>
<TABLE border ="1">
<TR>
<TD>erste Spalte</TD>
<TD>$textneu</TD>
<TD>dritte Spalte</TD>
</TR>
</TABLE>
</BODY>
</HTML>
EOT
Noch Fragen?
Gute Nacht und viel Spaß
Timothy