Zugriff von Perl auf DBF (XBase) Dateien

Frarr

Mitglied
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:

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);
}
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 ;)
 

Neue Beiträge

Zurück