nicht angemeldet
Hallo,
Hallo.
fangen wir mal mit der Datenbank als Textfile an.
Vorschlag: CSV-Datei. Die könntest Du wie folgt aufbauen:
titel;text;autor;dummy
(Eine solche Tabelle kannst Du auch mit Excel erzeugen und bearbeiten)
Das gäbe zeilenweise "Records" in denen die Felder mit ";" getrennt sind.Eine solche Tabelle kannst Du wie folgt mit PERL lesen:
Beispiel:
open(CSV, $tabelle);
while(<CSV>){
»» chomp ($_); # Zeilenumbrüche abschneiden
»» push (@zeilen, $_);
}
close (CSV);
Damit wird die Tabelle auf ein Array "@zeilen" gelesen.Um an die Felder zu kommen, gibt es die Funktion split(), geht z.B. so:
Beispiel:
for(@zeilen){
»» ($titel, $text, $autor, $dummy) = split (/;/,$_);
»» print "Titel: $titel Text: $text Autor: $autor Dummy: $dummy\n";
}
Die beiden Beispiele sollten erst einmal die Grundfunktion zeigen... vielleicht hilft das Dir schon weiter.
Viele Grüße, Rolf
mein Skript war vorhin wohl mit ein paar fatalen Fehler bestückt.
ich hab' das jetzt mal nachvollzogen...und hab' nix verstanden ~:-]
und mein Test-Skript hab' ich dann mal *versucht* mit Deinen
zu vermischen, so wie ich es für logisch halte würde, und mal eine
Ebene weiter gedacht, wofür ich das einxlich brauche...funktioniert
aber noch nicht so ganz.
:regisseure.cgi
#!/usr/bin/cgi-bin
$basedir = "$ENV{DOCUMENT_ROOT}/regisseure";
$baseurl = "http://www.little-wing-imagine.de/regisseure";
$cgi_url = "http://www.little-wing-imagine.de/cgi-bin/regisseure.cgi";
$inifile = "regisseure.csv";
@searching = "$suchen";
@name = "";
@search = "";
@realname = "";
@picture = "";
@portrait = "";
@gort = "";
@gtag = "";
@szeichen = "";
@sbild = "";
@cstern = "";
open(CSV, "<$basedir/$inifile");
while(<CSV> $searching eq $name)
{
chop($_);
push(@zeilen, $_);
for(@zeilen)
{
($name, $realname, $picture, $portrait, $gort, $gtag, $szeichen, $sbild, $cstern) = split (/;/,$_);
}
}
close (CSV);
if ($searching == $name)
{
print "<html><body>";
print "Regisseur: $realname<br>";
print "Picture: $picture<br>";
print "Portrait: $portrait<br>";
print "Geburtsort: $gort<br>";
print "Geburtstag: $gtag<br>";
print "Sternzeichen: $szeichen<br>";
print "Sternbild: $sbild<br>";
print "Stern: $cstern<br>";
print "</body></html>";
}
else
{
print "<html><body>Wurde nicht gefunden!</body></html>";
}
:ende
nunja. Guckt mal was ich da so für nen Mist verzapft habe. Wird
wohl noch ne weile dauern bis ich CGI/Perl verstehe...bis dahin
wäre ich aber sehr dankbar auf ein paar Hilfen von Euch.
bye jR.