Kawanet Tech Blog

テーブルデータベースは、リレーショナルデータベースのテーブルのように、複数の列からなるレコードを格納できるデータベースです。ハッシュデータベースのように主キーでレコードを識別しながらも、リレーショナルデータベースのようにレコード内に名前をつけた複数のコラムを持たせることができます。ハッシュデータベースと違って、レコード内の個々のコラムの値を条件にしてレコードの集合を問い合わせることができます。リレーショナルデータベースとは違って、あらかじめスキーマを定義する必要がなく、レコード毎に異なる種類のコラムを持たせることができます。
http://tokyocabinet.sourceforge.net/spex-ja.html#tips_tctdb

1. 準備

sudo apt-get install libbz2-dev

2. インストール

wget http://tokyocabinet.sourceforge.net/tokyocabinet-1.4.17.tar.gz
wget http://tokyocabinet.sourceforge.net/tyrantpkg/tokyotyrant-1.1.23.tar.gz
wget http://tokyocabinet.sourceforge.net/tyrantperlpkg/tokyotyrant-perl-1.10.tar.gz

tar zxvf tokyocabinet-1.4.17.tar.gz
tar zxvf tokyotyrant-1.1.23.tar.gz
tar zxvf tokyotyrant-perl-1.10.tar.gz

cd tokyocabinet-1.4.17
./configure --prefix=/usr/local/tokyocabinet-1.4.17 && make
sudo make install
cd ..

cd tokyotyrant-1.1.23
./configure --prefix=/usr/local/tokyotyrant-1.1.23 --with-tc=/usr/local/tokyocabinet-1.4.17 && make
sudo make install
cd ..

cd tokyotyrant-perl-1.10
perl Makefile.PL && make
sudo make install
cd ..

3. Tokyo Tyrant のサーバ起動

sudo env \
    LD_LIBRARY_PATH=/usr/local/tokyocabinet-1.4.17/lib \
    PATH=/usr/local/tokyotyrant-1.1.23/bin:$PATH \
    /usr/local/tokyotyrant-1.1.23/sbin/ttservctl start

sudo /usr/local/tokyotyrant-1.1.23/sbin/ttservctl stop

4. Tokyo Tyrant に接続してみる

export LD_LIBRARY_PATH=/usr/local/tokyocabinet-1.4.17/lib
export PATH=/usr/local/tokyotyrant-1.1.23/bin:$PATH

tcrmgr put localhost foo bar

tcrmgr get localhost foo

5. Perl クライアントで接続してみる

#!/usr/bin/perl

use strict;
use TokyoTyrant;

my $rdb = TokyoTyrant::RDB->new();
$rdb->open("localhost", 1978) or die "open error: ".$rdb->errmsg($rdb->ecode);
$rdb->put("foo","bar") or die "put error: ".$rdb->errmsg($rdb->ecode);
my $value = $rdb->get("foo");
defined $value or die "get error: ".$rdb->errmsg($rdb->ecode);
printf("%s\n", $value);
$rdb->close() or die "close error: ".$rdb->errmsg($rdb->ecode);

6. 「テーブルデータベース」の利用

sudo vi /usr/local/tokyotyrant-1.1.23/sbin/ttservctl

basedir="/var/ttserver"
port="1978"
dbname="$basedir/casket.tch#bnum=1000000"

dbname="$basedir/casket.tct#bnum=1000000"

6. Perl からテーブルデータベースの利用

#!/usr/bin/perl

use strict;
use TokyoTyrant;

my $rdb = TokyoTyrant::RDBTBL->new();
$rdb->open("localhost", 1978) or die "open error: ".$rdb->errmsg($rdb->ecode);

print $rdb->stat();

my $pkey = $rdb->genuid();
die "genuid error: ".$rdb->errmsg($rdb->ecode) if ( $pkey == -1 );
print "genuid: ", $pkey, "\n";

my $cols = { "name" => "kawanet", "age" => "32", "lang" => "ja,en,perl" };
$rdb->put($pkey,$cols) or die "put error: ".$rdb->errmsg($rdb->ecode);

my $qry = TokyoTyrant::RDBQRY->new($rdb);
$qry->addcond("age", $qry->QCNUMEQ, "32");
$qry->setorder("name", $qry->QOSTRASC);
$qry->setlimit(10);

my $num = $qry->searchcount();
print "count: ", $num, "\n";

my $res = $qry->search();
my $cnt = 0;
foreach my $rkey (@$res){
    print "[",++$cnt,"]\n";
    my $rcols = $rdb->get($rkey);
    foreach my $key ( sort keys %$rcols ) {
        print $key, "\t", $rcols->{$key}, "\n";
    }
}

$rdb->close() or die "close error: ".$rdb->errmsg($rdb->ecode);

perl db.pl
version 1.1.23
libver  306
protver 0.91
os      Linux
time    1241088729.147036
pid     24130
sid     1545951491
type    table
rnum    0
size    4198720
bigend  0
fd      6
loadavg 0.040000
ru_real 54.346143
ru_user 0.000000
ru_sys  0.116007
genuid: 1
count: 1
[1]
age     32
lang    ja,en,perl
name    kawanet

（参考）利用できる検索条件

• TDBQCSTREQ : 文字列　完全一致
• TDBQCSTRINC : 文字列　部分一致
• TDBQCSTRBW : 文字列　前方一致
• TDBQCSTREW : 文字列　後方一致
• TDBQCSTRAND : カンマ区切りの文字列の全てを含む
• TDBQCSTROR : カンマ区切りの文字列のいずれかを含む
• TDBQCSTROREQ : カンマ区切りの文字列のいずれかと完全一致する
• TDBQCSTRRX : 文字列　正規表現で一致
• TDBQCNUMEQ : 数値比較 eq（＝）
• TDBQCNUMGT : 数値比較 gt（＞）
• TDBQCNUMGE : 数値比較 ge（≧）
• TDBQCNUMLT : 数値比較 lt（＜）
• TDBQCNUMLE : 数値比較 le（≦）
• TDBQCNUMBT : 数値比較 between（カンマ区切り）
• TDBQCNUMOREQ : 数値比較 in (A,B,C,...) いずれかと一致