#!/usr/bin/perl

use strict;
use Fcntl;
use AnyDBM_File;

my $preferred_dbm = $AnyDBM_File::ISA[0];
my %hash;
my $dbfile = "this_is_a_test";

print "opening test_dbm using $preferred_dbm ...\n";

tie( %hash, $preferred_dbm, $dbfile, O_CREAT|O_RDWR, 0664 )
     or die $!;

my $i = 0;
my $limit = 20000;
while ( $i < $limit ) {
   my $x = rand;
   $hash{"a$i"} = $x;
   $i++;
   print "$i records stored\n" if ( $i % 2000 == 0 );
}
untie %hash;

print "Saved $limit records in $dbfile using $preferred_dbm\n";

%hash = ();  # just to prove things work as intended

tie %hash, $preferred_dbm, $dbfile, O_RDONLY, 0444;

for $i ( 1 .. 20 ) {
   my $k = 'a' . int( rand( $limit ));
   print "$k = $hash{$k}\n";
}

untie %hash;