LevelDBを使ってみる（モジュールの例を写経） | Codetter（こーどったー）

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