TokyoCabinetをperlで使ってみた
TokyoCabinetをperlから弄ってみる。 速度重視って事でTokyocabinetにしてみた。
仕様
接続元IPアドレスをチェックして、データベースに無ければデータベースに記録する。
アクセスした時から一定期間(1日とか1ヶ月)を超えたら削除する。
チェック&記録プログラムはウェブからアクセスされる度動作するので、速度重視って事なので削除部分は別プログラムとする。
tokyo cabinetはハッシュデータベースにする。(テーブルのが便利そうだけど今回はハッシュで十分)
インストール
tokyocabinetインストール
# wget http://1978th.net/tokyocabinet/tokyocabinet-1.4.33.tar.gz # tar zxvf tokyocabinet-1.4.33.tar.gz # ./configure # make # make install
tokyocabinet perlモジュールインストール
# wget http://1978th.net/tokyocabinet/perlpkg/tokyocabinet-perl-1.32.tar.gz # tar zxvf tokyocabinet-perl-1.32.tar.gz # perl Makefile.PL # make # make test # make install
とここまで書いてみたけど、実際perlから利用するにはすごく簡単に扱える。
use TokyoCabinet; my $hdb = TokyoCabinet::HDB->new(); $hdb->open('file', $hdb->OWRITER | $hdb->OREADER); my $value = $hdb->get($ip);
http://1978th.net/tokyocabinet/perldoc/
http://1978th.net/tokyocabinet/