LevelDBを使ってみる

Perl
  • いち早くモジュールが公開されてたので Tie::LevelDB 使ってみる。
  • インストール(※local::lib導入済み)
// 手動
$ wget http://search.cpan.org/CPAN/authors/id/S/SA/SARFY/Tie-LevelDB-0.01.tar.gz
$ tar xzvf Tie-LevelDB-0.01.tar.gz
$ cd Tie-LevelDB-0.01
$ perl Makefile.PL
$ make
$ make install

// こっちのが楽
$ cpanm Tie::LevelDB
  • 使い方 perldoc Tie::LevelDB 写経
use strict;
use warnings;
use Tie::LevelDB;

my $db = new Tie::LevelDB("/tmp/testdb");
$db->Put("Google","Don't be evil!");
print $db->Get("Google")."\n";
$db->Delete("Google");

__END__
$ ls -l /tmp/testdb/
合計 16
-rw-r--r-- 1 ymko ymko 65536 2011-07-31 03:14 000003.log
-rw-r--r-- 1 ymko ymko    16 2011-07-31 03:14 CURRENT
-rw-r--r-- 1 ymko ymko     0 2011-07-31 03:14 LOCK
-rw-r--r-- 1 ymko ymko    53 2011-07-31 03:14 LOG
-rw-r--r-- 1 ymko ymko 65536 2011-07-31 03:14 MANIFEST-000002