Ich bin absoluter Newcomer und möchte gerne per cgi-script eine Suchfunktion auf der Homepage anbieten, um einfache csv, bzw. txt. Dateien (Literaturzitate) anzeigen zu lassen.
mit folgendem Script kann ich bereits die
Literatur.txt-Datei anzeigen lassen:
#!C:\xampp\xampp\perl\bin\perl.exe$filename="Literatur.txt";
$trennzeichen =":";
print "Content-type: text/html\n\n";
# CSV-Datei öffnen
open (DAT,"<$filename");
# Tabelle zum Browser schicken
print qq|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta name="author" content="Autor">
<link href="../styles.css" rel="stylesheet" type="text/css">
<title>Tabelle</title>
</head>
<body>
<table>
|;
#erste Zeile (Kopfzeile)
$zeile=<DAT>;
chomp($zeile);
print qq|
<tr>
|;
for $spalte(split $trennzeichen, $zeile){
print qq|
<th>$spalte|;
}
# jede weitere Zeile
while($zeile = <DAT>){
chomp($zeile);
print qq|
<tr>
|;
for $spalte(split $trennzeichen, $zeile){
# leere Spalten (Zellen) mit Leerzeichen füllen
if ($spalte eq '') {
$spalte=" ";
}
print qq|
<td>$spalte|;
}
}
# Tabelle schließen
print qq|
</table>
</body>
</html>
|;
close(DAT) # Datei schließen
Wie kann ich nun über ein Formular einen Suchbegriff übergeben, der nur die Zeilen zurückgibt, die den suchstring enthalten?
vermutlich gibt es da bereits zahlreiche scripts, die das können, ich bin aber bis jetzt nicht fündig geworden.
Für einen Rat oder Hinweis wäre ich sehr dankbar.
Gruß
Georges
Datum: 28.01.2005-09:09
Volltext-Suche in csv Datei
