Hi,
ich möchte von Perl aus Informationen aus einer DBF Datei ziehen.
Auslesen der Struktur ist auch kein Problem. Allerdings weiß ich nicht wie ich auf die Einträge der Tabelle zugreifen kann.
Folgenden Code nutze ich zum auslesen der DB Struktur:
Mich würde interessieren wie ich nun auf den Inhalt der Datenbank zugreife.
Ein anderer Ansatz wäre das auslesen über ein DBF Plugin für Perl. Leider habe ich kein halbwegs aktuelles FUNKTIONIERENDES gefunden.
ich würde mich über Hilfe sehr freuen,
mfG Frarr
ich möchte von Perl aus Informationen aus einer DBF Datei ziehen.
Auslesen der Struktur ist auch kein Problem. Allerdings weiß ich nicht wie ich auf die Einträge der Tabelle zugreifen kann.
Folgenden Code nutze ich zum auslesen der DB Struktur:
Code:
open (openDBF,$ARGV[0]) || die "cant load data base.";
# Setze Modus
binmode(openDBF);
# Lese ersten Datensatz (zwei mal)
read(openDBF,$foo,32);
read(openDBF,$foo,32);
while ($foo =~ /^\w/ && $foo !~ /^. /) {
# Name der Spalte
$field_name = substr($foo,0,10);
# Art des Feldes N=Nummer C=Character
$field_type = substr($foo,11,1);
$junk = substr($foo,12,1);
# Position des Feldes
$field_position = unpack("C",$junk);
$junk = substr($foo,16,1);
# Größe des Feldes
$field_length = unpack("C",$junk);
# schreibe StdOut in Seitenformaten
write;
# lese nächsten Datensatz
read(openDBF,$foo,32);
}
Ein anderer Ansatz wäre das auslesen über ein DBF Plugin für Perl. Leider habe ich kein halbwegs aktuelles FUNKTIONIERENDES gefunden.
ich würde mich über Hilfe sehr freuen,
mfG Frarr
