Forums Neueste Beiträge
 

use XBase

24/04/2008 - 17:12 von Hago Ziegler | Report spam
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\"" 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
 

Lesen sie die antworten

#1 Bjoern Hoehrmann
24/04/2008 - 21:22 | Warnen spam
* Hago Ziegler wrote in de.comp.lang.perl.misc:
ich lasse auf diese aus einer DBF-Datei eine CSV-Datei erstellen:

my $table = new XBase "Kunden1.dbf" or die ("Nix isch");

Mich würde sehr interessieren, ob dabei die Datei Kunden.dbf irgendwie in
Gefahr ist, gelöscht oder sonstwie veràndert zu werden.



Ein kurzer Blick in XBase::Base verràt, wenn man nicht nen scheinbar un-
dokumentierten Parameter an den Konstruktor übergibt, wird die Datei zu-
mindest zum lesen und schreiben geöffnet (cf. "readonly" in dem Modul).
Im Zweifel müsste man den Autoren fragen oder den Code untersuchen, hier
wird dir das wohl keiner genau sagen können. Im Zweifel lieber sicher-
gehen und eine Kopie machen oder mit einem guten Schreibschutz versehen.
Björn Höhrmann · mailto: · http://bjoern.hoehrmann.de
Weinh. Str. 22 · Telefon: +49(0)621/4309674 · http://www.bjoernsworld.de
68309 Mannheim · PGP Pub. KeyID: 0xA4357E78 · http://www.websitedev.de/

Ähnliche fragen