| Subject: | The keys and values duplicate in many cases |
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use DBM::Deep;
use CGI::Carp 'fatalsToBrowser';
my $db = new DBM::Deep "foo.db";
$db->put("key1","value1");
$db->put("key1","value1");
$db->{hash1} = {};
$db->{hash1}->put("subkey1","subvalue1");
$db->{hash1}->put("subkey2","subvalue2");
my $struct = $db->export();
$ref=$struct->{hash1};
I ran the above program several times, and found that the file size of "foo.db" increases gradually.
I am using the ActiveState Perl v5.8.3 under Win2K Pro.