Hallo,
ich lasse auf diese aus einer DBF-Datei eine CSV-Datei erstellen:
.................
my $table = new XBase "Kunden1.dbf" or die ("Nix isch");
open(DAT,">Kunden.csv");
for (0 .. $table->last_record) {
my ($deleted, $id, $kname, $tag, $kstr, $kort)
= $table->get_record($_, "K_NUMMER", "K_NAME", "T_NUMMER",
"K_STRASSE", "K_ORT");
$kname = Encode::decode("ibm850", $kname);
$kstr = Encode::decode("ibm850", $kstr);
$kort = Encode::decode("ibm850", $kort);
print DAT
"\"$id\";\t\"$kname\";\t\"$tag\";\t\"$kstr\";\t\"$kort\"\n" unless
$deleted;
}
close DAT;
...................
Mich würde sehr interessieren, ob dabei die Datei Kunden.dbf irgendwie in
Gefahr ist, gelöscht oder sonstwie verändert zu werden.
Ich kann's mir zwar nicht denken, aber man weiß ja nie, ob man vielleicht
was nicht weiß :-)
Gruß, Hago
