kein DBM close nach untie ?

[Alain]

hi struppi,

Das ganze ist ja nur notwendig weil DB_File angeblich die Daten nicht locked. Ich meine mich aber zu erinnern das es neuere Versionen tun (such mal), damit wäre das ganze (mit ->fd und open DBM) überflüssig.

na gut,
aber ich hab den fehler nun gefunden,wesshalb das script nur halbhalb lief.
Und zwar wars ander der falschen anweisung am anfang des scripts:
fehler war folgend:
while (<DBM>){
if (!/$username/){
$dbfile{$username} = "20*0*$date_today";#wenn der username nicht drinn steht,schreibe folgende zeile.
}
}
anstatt
until (<DBM>){
if (!/$username/){
$dbfile{$username} = "20*0*$date_today";
}
}

ich habe durch suchen von DBM etc. zufällig bei http://www.rrz.uni-hamburg.de/wwwtrost/KURS/perlbase.html
den hinweis von while und until gelesen.
Mit while ging plötzlich gar nix mehr,am anfang schon.
Gruss
Alain