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