#!/usr/bin/perl
use strict;
use warnings;
use BerkeleyDB;
my $db_file = '/home/snowhare/perl_monks/example.db';
unlink $db_file;
my $db = BerkeleyDB::Btree->new( -Filename => $db_file,
-Cachesize => 700_000_000,
-Flags => DB_CREATE,
);
srand;
for(my $count = 0; $count < 12_000_000; $count++) {
my $random_value = rand(16776216);
my $status = $db->db_put( "$random_value" => "$count" );
}
undef $db;
[snowhare@blue-bay perl_monks]$ time ./big_btree.pl
real 3m47.121s
user 3m7.978s
sys 0m4.884s
This was on a desktop class machine with 1.5GBytes of RAM and an AMD Athlon 64 3000+ processor running Fedora Core 6 Linux.
|