Hi,
$CurrNum = 0;
open (ID, ">$db_id_file_name_franz1") or &cgierr("error [...]");
^ du öffnest die Datei zum Schreiben...
seek (ID, 0, 0);
read (ID, $CurrNum, 1);
^ du liest genau 1 byte...
close ID;
Ich täts so machen:
open(ID, "<$db_id_file_name_franz1") or cgierr(...);
$CurrNum = <ID>;
close ID;
cu,
Andreas
--
Der Optimist: Das Glas ist halbvoll. - Der Pessimist: Das Glas ist halbleer. - Der Ingenieur: Das Glas ist doppelt so groß wie nötig.
Der Optimist: Das Glas ist halbvoll. - Der Pessimist: Das Glas ist halbleer. - Der Ingenieur: Das Glas ist doppelt so groß wie nötig.