hi locke,
die Komentare habe ich nur hier eingegefügt, stehen nicht im original Skript.
Die ASCII Datei:
http://www.koch.formativ.net/privat/history.txt
#!/usr/bin/perl
$dateiname="…/privat/history.txt";
htmlkopf();
open (DATEI, „) {
chomp($zeile);
$zeile =~ s/\n/ /g; # zeilenumbrüche rausschneiden
$zeile =~ s/ +/ /g; # überflüssige blanks rausschneiden
@felder =(split(“;",$zeile)); #datum und text trennen
$felder[1]=~ s/#/
/g; # aus # werden HTML Zeilenumbrüche
print"\n";
print" „;
print“$felder[0]";
print"\n „;
print“$felder[1]";
print"\n";
};
htmlfuss();
close (DATEI);
ende
sub htmlkopf {
print „Content-type: text/html\n\n“;
print „\n“;
print „\n“;
print „\n“;
print „\n“;
print „\n“;
print " td.dat { text-align:right; padding-right:10mm; vertical-align:top }\n";
print " td.txt { text-align:left; vertical-align:top }\n";
print „\n“;
print „\n“;
print „\n“;
print „\n“;
print „\n“;
print " letzte Änderungen an meiner Homepage \n";
print „\n“;
}
sub htmlfuss {
print „\n“;
print „\n“;
print „\n“;
}
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]