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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX