Select Code to Download

  use strict;
  use warnings;
...
      $ob->STORE($_ => "$_ some string...");
  }

$ tar xf $HOME/Downloads/kyotocabinet-1.2.76.tar.gz
$ cd kyotocabinet-1.2.76
...
$ make -j2
$ sudo make install

$ tar xf $HOME/Downloads/kyotocabinet-perl-1.20.tar.gz
$ cd kyotocabinet-perl-1.20
...
$ cd doc
$ open index.html

my $ob1 = tie my %h1, 'TokyoCabinet::ADB', '*';  # in-memory hash
my $ob2 = tie my %h2, 'TokyoCabinet::ADB', '+';  # in-memory tree
...
my $ob3 = tie my %h3, 'KyotoCabinet::DB',  '*';  # in-memory hash
my $ob4 = tie my %h4, 'KyotoCabinet::DB',  '%';  # in-memory tree

use strict;
use warnings;
...

1 for ( 1 .. 2e8 );

use strict;
use warnings;
...

printf "duration: %0.03f seconds\n", time - $start;

"/tmp/file.kch#bnum=5000000" # hash
"/tmp/file.kct#pccap=256m" # tree
...
"*#bnum=5000000#capsiz=1024m" # in-memory hash
"%#pccap=256m" # in-memory tree