Name="CSV2HTML"
Stich="CSV HTML Datenbank Perl CGI Apache"
Zeit="Die Jul 10 14:21:46 MEST 2001"
Kurz="Sie wollen Ihre Datenbank im CSV-Format (Comma Separated Values) ins
HTML-Format konvertieren, wenn möglich mit direkter CGI-Anbindung."
Lang="
Folgendes Skript, zu speichern in /usr/local/httpd/cgi-bin/, wenn Sie vorhaben,
die Ausgabe über Apache ins Internet zu stellen, hilft dabei (
Download):
`exCodes csv2html.sh`
#!/usr/bin/perl -w
# csv2html.pl - Konvertiert CSV-Dateien nach HTML
# Copyright (C) Sam Aug 4 13:59:19 MEST 2001 by Ingo Blechschmidt
`cat gpl.lic; cat add.lic`
\$TITLE="CSV2HTML";
print "Content-type: text/html\n\n";
open(EINGABE, "<daten.csv") || die;
print "<html>\n<head>\n<title>\$TITLE</title>\n</head>\n<body bgcolor=\"#ffffaa\">\n\n";
print "<h1 align=\"center\">\$TITLE</h1>\n<hr />\n\n";
print "<table border=\"2\" cellpadding=\"3\" cellspacing=\"1\">\n";
\$header = <EINGABE>;
@zeile = split(";", \$header);
print "<tr>";
foreach \$zeile (@zeile) {
print "<th bgcolor=\"#ffaaaa\">\$zeile</th>";
}
print "</tr>\n";
@tabelle = sort(<EINGABE>);
foreach \$zeile (@tabelle) {
@zeile2 = split(";", \$zeile);
print "<tr>";
foreach \$zeile2 (@zeile2) {
print "<td bgcolor=\"#aaaaff\">\$zeile2</td>";
}
print "</tr>\n";
}
print "</table>\n</form>\n\n</body>\n</html>\n";
close(EINGABE);
`exCodee`
Wenn Sie das Skript aufrufen, nachdem Sie die Variable \$TITLE an Ihre
Bedürfnisse angepasst haben, liest das Skript die Datei daten.csl ein und
schreibt in die Standard-Ausgabe.
Wenn Sie gedenken, dass Skript wirklich online zu stellen, sollten Sie aber die
Such-, Hinzufüge- und Löschprozedur nicht vergessen...
"
case $1 in
Name) echo $Name; exit;;
Stich) echo $Stich; exit;;
Zeit) echo $Zeit; exit;;
Kurz) echo $Kurz; exit;;
Lang) echo $Lang; exit;;
esac
# if [ "$1" = "Name" ]; then echo $Name; fi
mself_vA="txt/0007.txt txt/0012.txt txt/0022.txt txt/0029.txt txt/0030.txt
txt/0031.txt txt/0040.txt txt/0023.txt txt/0044.txt txt/0049.txt txt/0051.txt
txt/0053.txt txt/0054.txt txt/0075.txt txt/0089.txt"