retrieving from opendbm

[Anders Stegmann]

Hi! 
 
 
Why doesn't this work? 
 
use strict; 
use warnings; 
 
my %result_hash = qw(foo bar); 
 
dbmopen(%result_hash, >>BB, 0666); 
 
dbmclose(%result_hash); 
 
dbmopen(%result_hash, BB, 0666); 
 
 
while (my ($key,$val) = each %result_hash) { 
 
print $key,\n; 
 
} 
 
dbmclose(%result_hash); 
 
regards Anders.