Wieder mal ne Textdatenbank

[Christian Schnagl]

Hallo Speedy,

normalerweise nimmt Dir hier niemand die Arbeit ab, aber ich hatte gerade Spaß an der Lösung Deines Problems. Die Programmierung ist nicht sonderlich elegant, aber sie funktioniert.

Gruß
  Christian Schnagl

PS: Es fehlen noch Abfragen wie "Feld gefunden?", aber einfache IF-Anweisungen kriegst Du hin. Bei der Feldbezeichnung muß auf Groß/Kleinschreibung geachtet werden!

#!/usr/bin/perl
print "Content-type: text/html\n\n";
open(DB, "<test.db"); @satz = <DB>; close DB;

print wert(2,"FELD4");  # Datensatz zwei, Feld 4 ausgeben

sub wert
{
  $satznr=$_[0];
  $feldname=$_[1];
  $tmp=0;

chop($satz[0]);

@felder=split(/,/,$satz[0]);
  foreach(@felder)
  {
    if ($_ eq $feldname) { $feldnr=$tmp; }
    $tmp++;
  }

chop($satz[$satznr]);
  @wert=split(/,/,$satz[$satznr]);

return $wert[$feldnr];
}