Problemy s dbm

[Ludek Finstrle]

Dobry den,

  mam dbm a potrebuji ji celou precist, ale nasledujici skript to nezvlada.
Pada totiz se segmentation fault. dbm ma asi 11Mb a generuji ji bez problemu
jinym skritem. 

Skript:

#!/usr/bin/perl

dbmopen %SLOVA, '/home/luf/slova/slov', undef or die "Databaze neexistuje!\n";

print "Vypis databaze slov:\n\n";

while (($key,$value) = each %SLOVA) {
 print $key,"\n";
}

dbmclose %SLOVA;

Nesetkal jste se nekdo s necim podobnym?

Predem dik za kazdy nakopnuti

Luf