nicht angemeldet
Hallo zusammen.
ich habe vor kurzem mit CGI-Skripten angefangen, und habe mir die
Dokus über CGI/Perl durchgelesen, soweit ich Sie durchschauen konnte.
Diese auf die Server zu replizieren, habe ich gepeilt, aber neulich
wollte ich eine kleine Datenbank (zeilenbasiert) realisieren (ich habe
nichts näheres darüber in den Dokus gefunden) und denke aber hoffentlich
auch theoretisch richtig angefangen zu haben, aber im praktischem
Sinne...hackt 's so n bisschen und der Server spuckt mir das sogenannte
Ergebnis nicht heraus. Könnt Ihr mir beim Skript weiterhelfen??
Vielen Dank auch im voraus.
bye jR. --> Sourcen...
:index.html
<html><body>
<form method="post" action="../cgi-bin/suchen.cgi" type="submit">
<input name="suchen">
<input type="submit">
</form>
</body></html>
:ende
:suchen.cgi
#!/usr/bin/cgi-bin
$basedir = "$ENV{DOCUMENT_ROOT}/suchen";
$inifile = "titel.ini";
#Variabel "suchen" vom Formular merken
@search = "$FORM{'suchen'}";
@titel = "";
@text = "";
@autor = "";
@dummy = "";
open(DATABASE, "<$basedir/§inifile");
do
{
#Zeilen lesen
$titel;
$text;
$autor;
$dummy;
}
until (<DATABASE> && $titel == $search)
close(DATABASE);
if ($titel == $search)
{
print "<html><body>";
print "Titel wurde gefunden.<br><br>";
print "<b>Titel:</b> $titel<br>";
print "<b>Text:</b><br>";
print "$text<br>";
print "<br><b>Autor:</b> $autor";
print "</body></html>";
}
else
{
print "<html><body>Der Titel wurde nicht gefunden!</body></html>";
}
:ende
:titel.ini
Blabla
Hallo und so.
jR
Blasülz
Test
dF
.
.
.
.
.
.
:ende